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SEQ 0001 

1 -REM a 

2 

3 

4 

5 

6 

4 IDENTIFICATION 

9 
10 
13 PRODUCT CODE: AC-F 627B-MC 

1? PRODUCT NAME : CKKUABO 11/44 UBI MAP 

+. DATE CREATED: OCTOBER, 1980 

+ MAINTAINER: DIAGNOSTIC ENGINEERING 
4 AUTHOR: JOHN CIUKAJ 
21 
35 
24 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
25 AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

26 CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
44 FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 
29 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
30 UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
31 (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
3 SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

34 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
35 RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 

7 DIGITAL. 


38 COPYRIGHT (C) 1979, 1980 BY DIGITAL EQUIPMENT CORPORATION 
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HISTORY SECTION 


CKKUAAO WAS RELEASED OCTOBER 1979 
CKKUABO WAS RELEASED OCTOBER 1980 


SEQ 0002 
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SEQ 0003 
47 
48 
$5 TABLE OF CONTENTS 
3 1) ABSTRACT 
? 2) REQUIREMENTS 
55 2.1 EQUIPMENT 
56 2.2 STORAGE 
44 -3 PRELIMINARY PROGRAMS 
44 3) LOADING PROCEDURE 
° 3.1 METHOD 
o 4) STARTING PROCEDURE 
65 4.1 STARTING ADDRESS 
66 4.2 PROGRAM AND OPERATOR ACTION 
+4 4.3 SPECIAL STARTING PROCEDURE 


69 5) OPERATING PROCEDURE 


71 .1 OPERATIONAL SWITCH SETTINGS 
72 5.2 SUB-ROUTINE ABSTRACTS 

3 5.3 RUNNING UNDER APT 

4} 6) ERRORS 

77 6.1 ERROR HALTS AND DESCRIPTION 
78 6.2 ERROR RECOVERY 

a4 6.3 SAMPLE ERRUR MESSAGES 

81 7) RESTRICTIONS 

83 7.1 STARTING RESTRICTLONS 

84 7.2 OPERATING RESTRICTIONS 


86 8) MISCELLANEOUS 


88 8.1 EXECTUION TIME 

a 8.2 ADDRESS GENERATION IN THE PDP-11/44 

4 9) PROGRAM DESCRIPTION 

93 

9b 1. ABSTRACT 

% 

97 THIS PROGRAM IS DESIGNED TO BE RUN ON A PDP11/44 ON WHICH 
98 THE CPU, CACHE(IF APPLICABLE), AND MEMORY MANAGEMENT DIAGNOSTIC 
99 PROGRAMS HAVE BEEN RUN, THE PROGRAM WILL DETECT ALL ERRORS 
100 THAT ORIGINATE WITH THE MAP BOX AND PROVIDE LOOPING 

101 CAPABILITIES SO THAT THE FIELD SERVICE ENGINEER CAN VERIFY 
102 THE FAILURES. THERE MAY BE SOME CASES, SUCH AS THE CACHE 
103 REGISTER DATA PATH, AND CACHE MEMORY DATA PATH, WHERE 
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INTERACTION BETWEEN MODULES PROHIBITS CLOSE ISOLATION, BUT 
THE FAILING FUNCTION WILL BE CALLED OUT SO THE FIELD SERVICE 
ENGINEER CAN COMPLETE THE ISOLATION PROCESS. 


IF THE PROGRAM CATCHES AN ERROR IN AN EARLY TEST 
AND IS ALLOWED TO CONTINUE RUNNING THROUGH THE 
LATER TESTS THE ERROR INDICATIONS FROM THOSE LATER 
TESTS MAY BE INVALID. THIS IS DUE TO THE STRUCTURE 
OF THE PROGRAM, WHICH ASSUMES THAT ALL AREAS TESTED 
PRIOR TO THE CURRENT TEST ARE FUNCTIONING PROPERLY. 


THE ERROR TYPE OUTS WILL BE IN TABLE FORMAT, WITH 

A MESSAGE INDICATING THE CLASS OF ERROR, A HEADER 
IDENTIFYING EACH COLUMN AND A REPORT OF ALL 

PERTINENT DATA. WHEN THE TEST CAN PRODUCE 

MORE THAN ONE ERROR CONDITION, A SUMMARY OF 

ERRORS WILL BE GIVEN AT THE END OF THAT TEST 
CONSISTING OF: THE LOGICAL ‘AND’ AND ‘OR’ OF THE DATA 
PREVIOUSLY REPORTED AND THE NUMBER OF ERRORS IN THIS 


TEST. 
(SEE SECTION 6.3 FOR AN EXAMPLE OF THE ERROR TYPEOUTS.) 
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2. 


2.1 


2.2 


2.3 


REQUIREMENTS 


EQUIPMENT 


THE BASIC PDP=11/44 COMPUTER, INCLUDING THE CPU, CACHE, MEMORY 
eye Ly fale AND AN LA=30 OR EQUIVALENT DEVICE FOR ERROR 


STORAGE 


THIS PROGRAM WILL REQUIRE 8K TO LOAD BUT WILL UTILIZE ALL 
EXISTING CORE FOR A DUAL ADDRESSING TEST OF MEMORY 
FROM THE UNIBUS. 


PRELIMINARY PROGRAMS 


THE CPU, CACHE(IF APPLICABLE), AND MEMORY MANAGEMENT 
DIAGNOSTICS SHOULD BE RUN BEFORE THIS PROGRAM. THE MEMORY 
DIAGNOSTIC SHOULD AT LEAST MAKE A QUICK VERIFY OF THE AREA 
OF MEMORY THIS PROGRAM WILL LOAD AND RUN IN. 


SEQ 0005 
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3. 


3.1 


LOADING PROCEDURE 


METHOD. 


THIS PROGRAM CAN BE LOADED FROM ANY DEVICE THAT IS 
SUPPORTED BY XXDP AND SHOULD BE LOADED USING THE XXDP 
PROCEDURE FOR THAT DEVICE. 


SEQ 0006 


CKKUABO 11/44 UBI MAP 
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ie 


4.2 


4.3 


STARTING PROCEDURE 


STARTING ADDRESS 
PROGRAM STARTS AT ADDRESS 200 
PROGRAM AND/OR OPERATOR ACTION 


THE PROGRAM WILL IDENTIFY ITSELF. IT WILL THEN ASK IF 
YOU WANT THE EOP MESSAGES PRINTED. NO USER RESPONSE IS 
REQUIRED, AS A WAIT LOOP, ENDING AFTER 2 SECONDS, 
TERMINATES THE INPUT, AND THE DIAGNOSTIC ASSUMES YOU 
WANT ALL EOP MESSAGES PRINTED. IF YOU DO RESPOND WITH 
AN 'N', NO EOP MESSAGE FOR A PARTICULAR PASS WILL BE 
PRINTED AS LONG AS THERE ARE NO ERROR(S) IN THAT PASS. 
IF AN ERROR DOES OCCUR IN THE PARTICULAR PASS, AN EOP 
MESSAGE WILL PRINT SO YOU CAN IDENTIFY WHERE IN THE PASS 
COUNT THE ERROR OCCURED. IF AT ANY TIME YOU WISH TO HAVE 
A PROGRESS REPORT, TYPE ANY CHARACTER ON THE TERMINAL, 
AND AT THE END OF THE PASS IT IS IN, AN EOP MESSAGE WILL 
PRINT FOR THAT PASS ONLY. IT WILL RESUME NOT PRINTING 
EOP MESSAGES AS LONG AS A CHARACTER HAS NOT BEEN ENTERED 


AT THE TERMINAL. IF YOU ELECT TO HAVE EOP MESSAGES PRINTED, 


(ENTERING OTHER THAN AN 'N' OR DO NOT RESPOND IN THE 2 
SECOND TIME LIMIT) THEY WILL BE AT THE END OF EACH PASS, 
ae, wena THE TOTAL NUMBER OF ERRORS OCCURRING ON 


SPECIAL STARTING PROCEDURE 


IF IT APPEARS THAT THE CACHE IS CAUSING SOME TROUBLE AND 
YOU STILL WANT TO RUN THIS PROGRAM, IT IS POSSIBLE TO RUN 
WITH THE CACHE DISABLED. SIMPLY LOAD THE CACHE CONTROL 
REGISTER (17777746) WITH THE DESIRED NUMBER. THEN LOAD 

THE PC (17777707) WITH THE STARTING ADDRESS (200) AND 

PRESS ‘‘CONTINUE''. THE PROGRAM WILL NOW RUN NORMALLY EXCEPT 


THAT CERTAIN TESTS WILL BE SKIPPED SINCE THE CACHE IS DISABLED. 


THIS FACT IS INDICATED IN THE ~ + aan OF EACH TEST THAT 
CHECKS THE CACHE CONTROL REGISTER 


DEFINITION OF THE ehiat IN THE CACHE CONTROL REGISTER: 
BITOO DISABLE TRAPS 

-FORCE MISS ON READ,WHERE ADDRESS BIT 12 | :% 
“FORCE MISS ON READ,WHERE ADDRESS BIT 12 I 


BIT 
BiT03 
BIT09  -UNCONDITIONAL CACHE BYPASS 


SEQ 0007 
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5. 


5.1 


> PY 


5.2.1 


5.2.2 


5.2.3 


OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS 


Swi5 1= HALT ON ERROR 

SwWi4 1= LOOP ON TEST 

$wW13 te INHIBIT ERROR TYPEOUTS 

SWi2 l= INHIBIT TRACE TRAP 

SW11 1= INHIBIT ITERATIONS 

$w10 1= BELL ON ERROR 

$w09 1= LOOP ON ERROR 

$w08 1= LOOP ON TEST IN SWR<05:00> 

SwW07 i INHIBIT MULTIPLE ERROR TYPE OUTS 


SELECT CACHE TESTS. THIS IS USED FOR 

MFG. QUICK VERIFY STATION AND CAN BE SELECTED 
BY APT SCRIPTING. THESE TESTS ASSUME THAT 

ALL MODULES EXCEPT UBI MODULE ARE KNOWN GOOD. 


SUB-ROUTINE ABSTRACTS 


ALL SUBROUTINE ABSTRACTS APPEAR IN THE CODE BEFORE THEIR 
EXPANSION AND IN THE DOCUMENT THAT IMMEDIATELY FOLLOWS THIS. 
BELOW-I1S A LIST OF THE SUBROUTINE TITLES. 


MACRO LIBRARY SUBROUTINES (FOUND IN MOST PROGRAMS) 


SCOPE HANDLER ROUTINE 

ERROR HANDLER ROUTINE 

ERROR MESSAGE TYPE OUT ROUTINE 

CONVERT 16-BIT VIRTUAL ADDRESSES TO 22-BIT PHYSICAL ADDRESSES 
SAVE AND RESTORE RO-R5 ROUTINES 

TYPE ROUTINE 

BINARY TO OCTAL (ASCII) AND TYPE 

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

TRAP DECODER 

POWER DOWN AND UP ROUTINES 

DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
END OF PASS ROUTINE 


SUBROUTINES UNIQUE TO THIS PROGRAM 


SUBROUTINE TO TURN OFF AND SAVE T-BIT 

SUBROUTINE TO RESTORE T-BIT TO ITS PREVIOUS CONDITION 
SUBROUTINE TO CLEAR ALL OF THE MAP REGISTERS 
SUBROUTINE TO EXTRACT MAP ADDRESS FROM PAR CONTENTS 


TRAP AND ABORT HANDLER ROUTINES 
CPU TRAP HANDLER ROUTINE 


CACHE TRAPS AND ABORTS HANDLER ROUTINE 
MEMORY MANAGEMENT TRAPS AND ABORTS HANDLER ROUTINE 


SEQ 0008 
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SEQ 0009 

$26 5.3 RUNNING UNDER APT 

260 THE EXECUTION TIMES PROVIDED IN THE APT SCRIPT THAT FOLLOWS 
261 ARE FOR EXECUTION WITH A 11/44 PROCESSOR, CACHE, 
| 262 16K CORE MEMORY, AND 300 BAUD. | 

se? THE FOLLOWING I$ A PROGRAM LOAD FILE USED BY APT: 

265 . E TABLE ‘A’ IS USED FOR APT DUMP MODE. 

266 A. IN ADDITION TO NORMAL CPU DIAGNOSTIC reste THIS 

267 TABLE WILL SELECT THE OPTIONAL CACHE TEST 

268 ($SWREG=100) AND INHIBIT ITERATIONS ($SUREGS =4000) 


2. E TABLE "B" IS USED FOR APT QV MODE WHILE RUNNING ON A 
MANUFACTURING QV STATION. IT ACCOMPLISHES WHAT ETABLE 
"A' DOES BUT ADDITIONALLY SUPRESSES TYPEOUTS. (SENVM=240) 


rororr 
NN NO 
moo 


273 

274 3. ETABLE ‘C* IS USED FOR APT QV OR RUNTIME MODES WHILE 
275 RUNNING ON SYSTEMS OTHER THAN MFG. QV STATIONS. THIS 
276 TABLE DESELECTS THE OPTIONAL CACHE TESTS. 

279 RUN TIME TEST TIME RUN TIME 

280 10 5 0 

281 

, , Se are Cag ae E TABLES —s_ aevcese 

283 

284 A 8 C 

285 E-MODE/S-MODE 200/000 240/001 240/001 
4 (SENVM/S$ENV) 

288 ee REGISTER 1 004100 0004100 004000 
289 ($SWREG) 

290 

291 SWITCH REGISTER 2 000000 


| 

| 

277 

278 1ST PASS LONGEST ADDITIONAL 
000000 000000 

292 CPU TYPE/OPTIONS 00/0000 00/0000 00/0000 
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324 
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6. 


6.1 


6.2 


6.3 


6.3.1 


ERRORS 


ERROR HALTS AND DESCRIPTION 


WHEN AN ERROR IS DETECTED AN “ERROR' (EMT) 

INSTRUCTION IS EXECUTED AND THE ‘ERROR HANDLER ROUTINE* 
CHECKS THE SWITCH REGISTER FOR MODE SELECTED. 

THE PROGRAM WILL: 


HALT ON ERROR IF SwW15=1 
INHIBIT ERROR TYPE OUT IF SW13=1 
RING BELL ON ERROR IF Swi0=1 
LOOP ON ERROR IF SW9=1 


ERROR RECOVERY 


IF SWO9=1, THE PROGRAM WILL LOOP BACK TO 

THE POINT WHERE THE INSTRUCTION THAT CAUSED THE ERROR WAS 
EXECUTED, WITHOUT ALLOWING ANY OF THE CONDITIONS TO CHANGE. 
THIS WILL PROVIDE THE TIGHTEST POSSIBLE —" LOOP. 

IF SWO9=0, EACH ERROR WILL BE REPORTED 

LOGGED AND, AT THE END OF EACH TEST, A SUMMARY OF ‘ALL ERRORS 
OCCURRING IN THAT TEST WiLL BE PROVIDED. THE SUMMARY 
CONSISTS OF THE LOGICAL AND AND OR OF THE ADDRESS AND/OR 
DATA THAT WAS WRONG. 


SAMPLE ERROR TYPE OUTS 
SEE '‘SERRTB:"' FOR SAMPLE ERROR TYPEOUTS. 


MULTIPLE TYPE ERRORS: AN EXAMPLE: 
THE FOLLOWING “ERmORPC TIMED OUT WHEN REFERENCED 


170212 000001 013082 


TO 


170372 000001 015232 
170374 000001 015232 
170376 000001 015232 


SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 
tos REGADRS 

“AND'' #ERRORS TESTNO ERRORPC 
170576 170210 32 000001 010530 


SEQ 0010 
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SEQ 0011 
343 V. RESTRICTIONS 
344 
345 
346 va STARTING RESTRICTIONS 
349 
ae 7.2 OPERATING RESTRICTIONS 


| 347 
348 NONE 
352 NONE 
| 
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SEQ 0012 
8. MISCELLANEOUS 
8.1 EXECUTION TIME 
THE RUN TIME FOR ANY PASS IS APPROXIMATELY 3 SECONDS. 
8.2 ADDRESS GENERATION IN THE PDP=11/44 
THE FOLLOWING IS AN EXAMPLE OF HOW A MEMORY ADDRESS 
1S GENERATED BY THE UNIBUS MAP. THIS ASSUMES THAT 
THE ADDRESS ORIGINATES IN THE LPU BUT THE PROCESS CAN 
APPLY TO ANY UNIBUS ADDRESS, STARTING AT LINE C2. 
VIRTUAL ADDRESS 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 
. P.A.R. PAGE NUMBER (0-7) 15 14 13 
. OFFSET (FROM VIRTUAL ADDRESS) 12 11 10 09 08 07 06 05 04 03 02 01 00 


P.A.R.CPAGE NO.] + 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 


PHYS ADDRS (A2+B) 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 

17XXXXXX=> U.B.ADR. 21 20 19 18 

. MAPPING REG.NO. (0-36) 17 16 15 14 13 

. OFFSET 12 11 10 09 08 07 06 05 04 03 02 01 00 
MAP REG.CNO.] + 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 


PHYS ADDR (C3+D) 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 OS 04 03 O02 01 00 


agg the OF LINES 
A: VIRTUAL yronty (16 BITS 
Al: R 3 Ak. OF VIRTUAL ADDRESS, USED TO 
SELECT A PAGE ADDRESS REGISTER (PAR) 
A2: LOWER 13 BITS OF VIRTUAL ADDRESS, ADDED TO 
SELECTED PAR 


B: PAGE ADDRESS REGISTER (16 BITS), IN ie PROCESS THiS GETS 
LEFT SHIFTED 6 BITS BEFORE ADDITION TO A2 


C: PHYSICAL ADDRESS CREATED BY MEMORY MANAGEMENT, (22 BITS) 
C1: IF UPPER 4 BITS ARE ALL ONES THEN BITS <17:00> GO OUT ON UNIBUS 
(2: i MAP RELOCATION IS ENABLED THEN BITS <17:15> SELECT ONE 
THE 36 (OCTAL) MAP REGISTERS. 
C3: LOWER 15 BITS OF UNIBUS ADDRESS, ADDED TO SELECTED MAP REGISTER 


D: MAP REGISTER (22 BITS), ADDED TO BITS <12:00> OF UNIBUS ADDRESS 
E: PHYSICAL ADDRESS GENERATED BY UNIBUS MAP AND SENT TO THE CACHE. 


CKKUABO 11/44 UBI MAP 
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| 9. PROGRAM DESCRIPTION 


THE ee 7 datas CKKUABO.SEQ, HAS A PARAGRAPH waa tect T 
EACH OF THE TESTS. THE PARAGRAPH WILL INDICATE IF THE TEST IS 
RUN CONDITIONALLY ON THE STATUS ON THE CACHE CONTROL REGISTER.@ 


SEQ 0013 


po OC pena snr cence thet aes 
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558 -TITLE CKKUABO 11/44 UBI MAP 
| s*COPYRIGHT (C) OCTOBER 1980 
:*DIGITAL EQUIPMENT CORP. 
gSRATRARD MASS. 01754 ? 


| 
| 
:SPROGRAN BY DAN F. MILLEVILLE 
| 


SeTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
;*PACKAGE (MAINDEC-11-DZQAC~A6). 


27. oe. % 


r 


‘OPERATIONAL SWITCH SETTINGS 


| 559 


560 
561 
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SBTTL OPERATIONAL SWITCH SETTINGS 


* 


eae eeee ep ea eae ee 


SWITCH 


MAX NWOO —NVWEW 


HALT ON ERROR 


TEST 
BIT ERROR TYPEOUTS 
INHIBIT TRACE TRAP 

BIT ITERATIONS 
BELL ON ERROR 


ERROR 
LOOP ON TEST IN SWR<4:0> 
INHIBIT MULTIPLE ERROR TYPEOUTS 
SELECT CACHE-CIS TESTS 
SELECT MEMORY ON UNIBUS TEST 


SEQ 0015 


r 
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eee ll 


040000 


SW14= 


40000 


BASIC DEFINITIONS SEQ 0016 
562 -SBTTL BASIC DEFINITIONS 

itkeae ADDRESS OF ene tikes POINTER *## 1100 ee 

001100 STA 1100 FIRST ADDRESS OF THE STACK 

001100 PERS TRE STACK SKERNEL STACK 

000700 SUPSTK= STACK=-200 «SUPERVISOR STACK 

000600 USESTK= STACK=300 ;;USER STACK 

104000 ERROR=EMT : 

000004 SCOPE=I0T : 

177776 PS= 177776 3;PROCESSOR STATUS WORD 

177776 PSW=PS $ 

177774 STKLMT= 177774 7; STACK LIMIT REGISTER 

177772 PIRQ= 177772 :;PROGRAM INTERRUPT REQUEST REGISTER 
;SWR= i 388 SWITCH REGISTER (ELIMINATED FOR CKKUAB) 
‘DISPLAY=SWR +88 (ELIMINATED FOR CKKUAB) 
Cae, ( tae DEFINITIONS 

000011 HT= 11 ;;CODE FOR | a TAB 

000012 LF= 12 ;;CODE LINE FEED 

000015 af 15 + CODE CARRIAGE RETURN 

000200 CRL 200 ;CODE FOR CARRIAGE RETURN= LINE FEED 
SO EENERAL PURPOSE REGISTER DEFINITIONS 

000000 RO= x0 33 RAL REGISTER 

000001 Ri= %1 3;GENERAL REGISTER 

000002 R2= %2 7; GENERAL REGISTER 

000003 R3= 13 7;GENERAL REGISTER 

000004 R4= 14 3;GENERAL REGISTER 

000005 R5= %5 ;;GENERAL REGISTER 

000006 R6= 16 7; GENERAL REGISTER 

000007 R7= %7 ;;GENERAL REGISTER 

000000 R10=RO Z 

000001 R11=R1 : 

000002 R12=R2 ; 

000003 R13=R3 3 

000004 R14=R4 : 

000005 R15=R5 ; 

000006 SP=R6 ; 

000006 KSP=SP 3 

000006 SSP=SP : 

000006 USP=SP ; 

000007 PC=R7 
s*PRIORITY LEVEL DEFINITIONS 

000000 PRO= 0 PRIORITY LEVEL 0 

000040 PRi= 40 ‘PRIORITY LEVEL 1 

000100 PR2= 100 : PRIORITY LEVEL 2 

000140 PR3= 140 : PRIORITY LEVEL 3 

000200 PR4= 200 s:PRIORITY LEVEL 4 

000240 PR5= 240 s PRIORITY LEVEL 5 

000300 PR6= 300 + PRIORITY LEVEL 6 

000340 PR7= 340 sPRIORITY LEVEL 7 
3*''SWITCH REGISTER’ SWITCH DEFINITIONS 

100000 Sw15= 100000 


020000 
010000 


oOOC—rmw 


SEQ 0017 
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BASIC DEFINITIONS 
000200 sw07= 200 
000100 Sw06= 100 
000040 Sw0S= 40 
000020 Sw04= 20 
000010 SwO3= 10 
000004 SwO2= 
000002 SwOl= 2 
000001 SwOO= 1 
001000 SW9=SW09 ; 
000400 Sw8=SW08 : 
000200 Sw7=SwW07 ; 
000100 SW6=SWO06 : 
000040 SW5=SW05 ; 
000020 SW4=SW04 ; 
000010 SW3=SW03 : 
000004 SW2=SwO02 ; 
000002 SWi=Sw01 ; 
000001 SwO=SW00 ; 
;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 BIT15= 100000 
040000 BIT14= 40000 
020000 BIT13= 20000 
010000 BIT12= 10000 
004000 BIT11= 4000 
002000 BIT10= 2000 
001000 BITO9= 1000 
000400 BITO8= 400 
000200 BITO7= 200 
000100 BITO6= 100 
000040 BITOS= 40 
000020 BITO4= 20 
000010 BITO3= 10 
000004 BITO2= 4 
000002 BITOl= 2 
000001 BITOO= 1 
001000 BIT9=B1T09 : 
000400 B118=B1108 : 
000200 BIT7=B1107 : 
000100 B1T6=B1106 ; 
000040 BIT5=B1T05 : 
000020 BIT4=B1T04 ; 
000010 BIT3=B1T03 : 
000004 BIT2=B1T02 : 
000002 B1T1=B1T01 ; 
000001 B1T0=B1T00 ; 
;*BASIC “'CPU'' TRAP VECTOR ADDRESSES 
000004 ERRVEC= 4 
000010 RESVEC= 10 
| 000014 TBITVEC=14 3 
| 000014 TRIVEC= 14 ST TRACE TRAP 
000014 BPTVEC= 14 ;;BREAKPOINT TRAP (BPT) 
| 
| 
| 
| 


;;TIME OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 


SEQ 0018 


cet a) 


000024 PWRVEC= 26 ;;POWER FAIL SEQ 0019 
000030 EMT VEC sSRRVLATOR IRAP (EMT) **ERROR** | 


>: TTY KEYBOARD VECTOR 


G 2 
000020 1OTVEC= : :; INPUT/OUTPUT TRAP (IOT) **SCOPE*® 
c=5 
6 :; TTY PRINTER VECTOR 


000064 TPVEC 
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BASIC DEFINITIONS 


000114 CACHVEC=114 
000240 PIRQVEC=240 
000250 MMVEC= 250 


;;CACHE ERROR INTERRUPT VECTOR 
;;PROGRAM INTERRUPT REQUEST VECTOR 
;;MEMORY MANAGEMENT VECTOR 


SEQ 0020 


CKKUABO 11/44 UBI MAP 
CACHE REGISTER DEFINITIONS 


177740 


177752 


MACRO M1113 05-NOV-80 


HITMIS 


1 2 
14:09 PAGE 18 SEQUENCE 19 


CACHE REGISTER ae ao 
740 LOWER 16 BITS OF ADDRESS THAT CAUSED ERROR 


= 177 

= 177742 TUPPER SIX BITS OF ADDRESS THAT CAUSED ERROR 
= 177744 7; CACHE ERROR REGISTER 

= 177746 ;;MEMORY CONTROL REGISTER 

= 177750 ;;MEMORY MAINTENENCE REGIS 


TER 
177752 p;HIT MISS REGISTER ‘1"' IMPLIES HIT IN CACHE 


SEQ 0021 
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(CPU REGISTER DEFINITIONS 


i 


177760 
177762 


177764 
177766 


-SBTTL CPU_REGISTER FET RORY 


SIZELO = 177760 ; MEMORY oe REGISTER NUMBER TO PUT INTO A PAR 
GET TO THE LAST 32 WORDS OF MEMORY 
SIZEHI = 177762 THIGH SIZE REGISTER, RESERVED FOR FUTURE USE 
;; CURRENTLY ALL ZERO 
SYSTID = 177764 3; SYSTEM ID REGISTER 
CPUERR = 177766 3;CPU ERROR REGISTER HO ONDITION THAT CAUSED 


LoS C 
7; THE TRAP TO ERRVEC (000004) 


SEQ 0022 
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(MEMORY MANAGEMENT DEFINITIONS SEQ 0023 


.SBTTL MEMORY MANAGEMENT DEFINITIONS 
;*MEMORY MANAGEMENT STATUS REGISTER ADDRESSES 
177572 MMRO= 177572 
177574 MMRI= 177574 
177576 MMR2= 177576 
172516 MMR3= 172516 
177572 SRO=MMRO ; 
177574 SR1=MMR1 : 
177576 SR2=MMR2 ; 
172516 2 
;*USER ''I'' PAGE DESCRIPTOR REGISTERS 
177600 UIPDRO= 177600 
177602 UIPDR1= 177602 
177604 UIPDR2= 177604 
177606 UIPDR3= 177606 
177610 UIPDR4= 177610 
177612 UIPDRS= 177612 
177614 UIPDR6= 177614 
177616 UIPDR7= 1 
; USER “De PAGE DESCRIPTOR REGISTORS 
177620 UDPDRO= 1 
177622 UDPDR1= 177859 
177624 UDPDR2= 177624 
177626 UDPDR3= 177626 
177630 UDPDR4= 177630 
177632 UDPDR5S= 177632 
177634 UDPDR6= 177634 
177636 UDPDR7= 177636 
;*USER "'I'' PAGE ADDRESS REGISTERS 
177640 UIPARO= 177640 
177642 UIPAR1= 177642 
177644 UIPAR2= 177644 
177646 UIPAR3= 177646 
177650 UIPAR4= 177650 
177652 UIPARS= 177652 
177654 UIPAR6= 177684 
177656 UIPAR7= 177656 
;*USER “'D'' PAGE ADDRESS REGISTERS 
177660 UDPARO= 177660 
177662 UDPARI= 177662 
177664 UDPAR2= 177664 
177666 UDPAR3= 177666 
177670 UDPAR4= 177670 
177672 UDPARS= 177672 
177674 UDPAR6= 177674 
177676 UDPAR7= 177676 
;*SUPERVISOR "'I'' PAGE DESCRIPTOR REGISTERS 
172200 SIPDRO= 172200 
172202 SIPDR1= 172202 
172204 SIPDR2= 172204 
172206 SIPDR3= 172206 


Cn NE a 


SEQ 0024 


2 


172220 


SEQ 0025 


2 


- 
SEQUENCE 22 
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‘MEMORY MANAGEMENT DEFINITIONS 


CKKUABO 11/44 UBI MAP 


r = 


I’ PAGE ADDRESS REGISTERS 
AGE DESCRIPTOR REGISTERS 
AGE ADDRESS REGISTERS 


onus COON? OLA ONWSs OOMT OA ONT OONNY 


HUH HHnHnHenUnKnnnnnneunKnHnHHnnHKnWwHNnKHnKnHnHnHnHKHhwHHHnHnnnnnwHennnunun 
@aaeaaacacacaancaacaacaadcadcadcacaacaaacaaaaaacaadcaancaacaacaacaacaaccaca 
aeacnaaaatdgvT dade eee eae ewaoaanaaaaowcacacaqcaaudddeac ccc 
Qqaaqaaaaanvaaaaadnaaanvaaaadaaaawanagagaaadcwaaadaagaaawadaaaaaa 
SOA BOOOD © tt tt tt tt FT OOOO OOOO € Ht mt et mt tt F OO OOOO € Ht et 
APMVWWWWO -OWVWVWNVWVWYVO WMWMWMWWMWWY «odd We de we De de a * * 
NwToOoOoONmTO ONTOONTO ONTOONTO ONWwTOONTO ONWWTOONYTO ONT OONY 
NVM NS www TMmmnmwn ooo orr-rr Oooo Geen --— NNN wTvwvwrmnmwn 
ravTavlatla*latlatia Mma lala lacia la la Lh Mea Lah a a la tk 1a 1a Mae ale ee ed lad lad al ee eee Leelee) 
Pavravrav latin latin Mma la lala lala lala mee 1a lala lala lala Meme lala la lala la'le Me a a le a ee ts ee Tee le le lal ss) 


[al adh seal eee el see ool Pt cantik anni cee cent nei see aoe S oetit aaa cantik cenit cnet eet mei ned et en ee en coi coal cum silt anni oni soon mal Fok aia aati sii aueik meee 


N 2 
KIPAR7= 172356 
;*KERNEL ''D'’ PAGE ADDRESS REGISTERS 
KDPARO= 172360 
172362 
KDPAR2= 172364 
KDPARS= 172366 


SEQ 0026 





mea 


—s" — “eo 
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(MEMORY MANAGEMENT DEFINITIONS SEQ 0027 
172370 KDPARG= 172 70 
172372 | KDPARS= 172372 
172374 KDPAR6= 172374 
172376 KDPAR7= 172376 


C 3 
CKKUABO 11/44 UB] MAP MACRO M1113 05-NOV-80 14:09 PAGE 21 SEQUENCE 24 
UNIBUS MAP REGISTER DEFINITIONS SEQ 0028 


.SBTTL UNIBUS MAP REGISTER DEFINITIONS 
| :*THE LOWER 16 BITS OF THE MAP REGISTERS ARE LABELED 'MAPLXx' 
| s*THE UPPER 6 BITS OF THE MAP REGISTERS ARE LABELED 'MAPHXX' 
170200 MAPLOO = 170200 
170202 MAPHOO = 170202 
170204 MAPLO? = 170204 
170206 MAPHO1 = 170206 
170210 MAPLO2 = 170210 
170212 MAPHO2 = 170212 
170214 MAPLO3 = 170214 
170216 MAPHOS = 170216 
170220 MAPLOG = 170220 
17022 MAPHO4 = 170222 
170224 MAPLOS = 170224 
170226 MAPHOS = 170226 
170230 MAPLO6 = 170230 
1702 MAPHO6 = 170232 
170234 MAPLO7 = 170234 
170236 MAPHO7 = 170236 
170240 MAPL10 = 170240 
170242 MAPH10 = 170242 
170244 MAPL11 = 170244 
' 170246 MAPH11 = 170246 
170250 MAPL12 = 170250 
170252 MAPH12 = 170252 
170254 MAPL13 = 170254 
170256 MAPH13 = 170256 
170260 MAPL14 = 170260 
170262 MAPH14 = 170262 
170264 MAPL15 = 170264 
170266 MAPH15 = 170266 
170270 MAPL16 = 170270 
170272 MAPH16 = 170272 
170274 MAPL17 = 170274 
170276 MAPH17 = 170276 
170300 MAPL20 = 170300 
170302 MAPH20 = 170302 
170304 MAPL21 = 170304 
170306 MAPH21 = 170306 
170310 MAPL22 = 170310 
170312 MAPH22 = 170312 
170314 MAPL23 = 170314 
170316 MAPH23 = 170316 
170320 MAPL24 = 170320 
170320 MAPH24 = 170320 
170324 MAPL25 = 170324 
170326 MAPH25 = 170326 
| 170330 MAPL26 = 170330 
170332 MAPH26 = 170332 
170334 MAPL27 = 170334 
170336 MAPH27 = 170336 
| 


SEQ 0029 


CKKUABO 11/44 UBI MAP 


MACRO M1113 05-NOV-80 


UNIBUS MAP REGISTER DEFINITIONS 


170236 


MAPL33 


MAPH37 


14:09 PAGE 21-1 


nl aad a and a oe en ee oe 
SNS NA AAOUIUM 
AEM LS VIOO S&S 


1 
MAPLO=MAPLO0 
MAPHO=MAPHOO 
MAPL1=MAPLO1 
MAPH1=MAPHO} 
MAPL2=MAPLO2 
MAPHZ=MAPHO2 
MAPL3=MAPLO3 
MAPH3=MAPHO3 
MAPL4=MAPLO4 
MAPH4=MAPH04 
MAPL5=MAPLO5 
MAPH5=MAPHO5 
MAPL6=MAPL06 
MAPH6=MAPHO6 
MAPL7=MAPLO7 
MAPH7=MAPHO7 


— 3 
SEQUENCE 25 


SEQ 0030 


re 
CKKUABO 11/44 UB] MAP MACRO M1113 05-NOV-80 14:09 PAGE 24 SEQUENCE 26 


TRAP CATCHER 


566 -SBTTL 9 CATCHER 


000000 -= 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A *',#2,HALT"’ 
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
;*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


SEQ 0031 


CKKUABO 11/44 UB] MAP 
STARTING ADDRESS(ES) 


G 3 
MACRO M1113 O05-NOV-80 14:09 PAGE 25 SEQUENCE 27 


» SBTTL ——— ADDRESS(ES) 


020 = 
000200 B00 87 010000 JMP Qa START 3; JUMP TO STARTING ADDRESS OF PROGRAM 


SEQ 0032 


CKKUABO 11/44 UBI MAP 
ACT11 HOOKS 


568 


000046 
000052 


000204 


000204 


H 3 
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SEQ 0033 
» SBTTL ACT11 HOOKS 


,eAAKKAARAeeHeeAeeeetereeeeeeeKeReeeeakeneeKetenteteeeeteeteteees 


;*THE FOLLOWING LOCATIONS ARE SETUP TO BE USED WITH ACT11 
32 


:*LOCATION ah Hie CONTAIN THE ADDRESS OF THE LOCICAL 
;*END OF THE P oh usee 
S*LOCATION 52 1$ USED TO SPECIFY PROGRAM OPERATING REQUIREMENTS 


; *AND/OR RESTRICTIONS. THIS IS ACCOMPLISHED BY SETTING VARIOUS BITS 
:*TO A ONE OR A ZERO. THE BITS USED AND THERE MEANING ARE: 


eaee#eenerneee 


BIT 15=1 PROGRAM SHOULD BE POWER FAILED WHILE RUNNING 
=0 NO POWER FAIL DESIRED 


BIT 14=1 PROGRAM RUN TIME IS MEMORY SIZE DEPENDENT 
= RUN TIME IS NOT MEMORY SIZE DEPENDENT 


ER -0 MUST BE ZERO'S 
$SvP ;;SAVE LOCATION COUNTER 


. ue. ¢3Set LOCATION COUNTER 

-WORD SENDAD 3;SET LOC.46 TO ADDRESS SENDAD 
-=52 ¢3SeT LOCATION no ER 

-WORD 0 3;SET LOC.52 TO ZERO 

-=$SVPC :¢ RESTORE COCATION COUNTER 


C 


CKKUABO 
OMMON 


570 


11/44 UBI MAP 
TAGS 


Nt by pete t 9 + 4 
MOK FWNMNOO &T 


2 
001214 


001100 


000000 
000006 


. 2 
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SCMTAG: ::START OF COMMON TAGS 
-$PASS: .WORD 0 :8& CONTAINS PASS COUNT (ELIMINATED FOR CKKUAB) 
$TSTNM: .BYTE 0 ::CONTAINS THE TEST NUMBER 
SERFLS: .BYTE 0 S: CONTAINS ERROR FLAG 
$ICNT: .WORD 0 :: CONTAINS SUBTEST ITERATION COUNT 
$LPADR: .WORD 0 =: CONTAINS SCOPE LOOP 
SLPERR: .WORD 0 :: CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 >: CONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE 0 >: CONTAINS ITEM CONTROL BYTE 
SERMAX: .BYTE 1 >: CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 >: CONTAINS PC OF LAST ERROR INSTRUCTION 
$GDADR: .WORD 0 ::CONTAINS OF ‘GOOD’ DATA 
SBDADR: .WORD 0 ::CONTAINS OF "BAD' DATA 
$GDDAT: .WORD 0 >:CONTAINS 'GOOD' DATA 
$BDDAT: .WORD 0 >: CONTAINS "BAD' DATA 

000000 000000 “WORD 0,0,0 > :RESERVED=-NOT TO BE USED 
$TKS: 177560 =: TTY KBD STATUS 


377 


-SBTTL COMMON TAGS 
pRRMeeeeeeneReeKeeedeeeeeeeeeeeededeereeeeenereeeereneeeeereres 
;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN + eget 

= 


;; TTY KBD BUFFER 
i;TTY PRINTER STATUS REG. 
3;TTY PRINTER BUFFER REG. 


: 0 s; CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE 2 ;;CONTAINS # OF FILLER CHARACTERS REQUI 
S$FILLC: .BYTE 12 : INSERT FILL CHARS. AFTER A “LINE FEED 
STPFLG: .BYTE 0 :;""TERMINAL AVAILABLE'’ FLAG (BI1T<07>=0=YES) 
SWR: . WORD 177570 be LOCATION FOR STORING SWITCH REGISTER 
DISPLAY: .WORD 177570 38& DISPLAY REGISTER 
SREGAD: .WORD 0 ;; CONTAINS THE FROM 

s;WHICH ($REGO) WAS OBTAINED 
REPT $cm3 

S$REGO: WORD 0 : CONTAINS (($REGAD) +0) 
$REG1: WORD 0 : CONTAINS (($REGAD) +2) 
$REG2: .WORD 0 ; CONTAINS (($REGAD) +4) 
$REG3: WORD 0 >: CONTAINS (($REGAD) +6) 
SREG4: WORD 0 >: CONTAINS (($REGAD) +10) 
ly WORD 0 :: CONTAINS (($REGAD) +12) 
STMPO: .WORD 0 s;USER DEFINED 

STMP1: WORD 0 ; USER DEFINED 

STMP2: WORD 0 ;;USER DEFINED 

$STMP3: .WORD 0 ;;USER DEFINED 

STMP4: .WORD 0 ;;USER DEFINED 

STMPS: .WORD 0 ;;USER DEFINED 

STMP6: 0 ;;USER DEFINED 


. WORD 
STIMES: 0 3;MAX, NUMBER OF ITERATIONS 
SESCAPE :0 ESCAPE ON ERROR 
377 S$BELL: .ASCIZ <207><377><377> ;;CODE FOR BELL 


SEQ 0034 


;;QUESTION MARK 

7; CARRIAGE RETURN 

scLINE FEED 

:HOLDS THE LOWER 16 BITS OF A 22 BIT ADDRESS 
:GENERATED FOR TYPE OuT. 

sHOLDS THE UPPER 6 BITS OF A 22 BIT ADDRESS 


CKKUABO “a UBI MAP 


‘spatetorns 


001230 
00 


001254 
001256 
001260 


001302 
00 


001346 
001350 


| 
001274 
001276 
* 001300 


000000 
000000 


000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 


000000 
000000 
000200 
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000077 


000077 


ADRAND: . 


LOWEST: . 
HIGEST: . 
UBMLOW: . 


UBMH] : 


MARLOW : . 


NXTTST: . 


DATA: 


- WORD 


. >. . . 
~S~NNN 
“SNN™N 


CODCOD OOVCOODOSCCOCCOO OG COCOOCOOCOO Co Oo Oo OOOOOOO 


200 


kK 3 
SEQUENCE 30 


SEQ 0036 


;GENERATED FOR TYPE OUT. 
;LOGICAL AND OF FAILING ADDRESSES 
;LOGICAL OR OF on 


; DATA 

[LOGICAL AND OF PATTERN LOADED 

:LOGICAL OR OF PATTERN LOADED 

;HOLDS NUMBER TO PUT IN PAR TO CAUSE THE 
;LOWEST USABLE MAP REGISTER TO RESPOND 
;HOLDS NUMBER TO PUT IN PAR TO CAUSE THE 
:HIGHEST USABLE MAP REGISTER TO RESPOND 
;HOLDS NUMBER TO PUT _ TO SIGNAL 1ST 
ZADDRESS OF UNIBUS MEMO 

;HOLDS NUMBER TO PUT IN. PAR TO SIGNAL LAST 
;BLOCK OF 4K OF UNIBUS MEMORY 

;HOLDS LOWEST MAP REGISTER NUMBER FROM "LOWEST:' 
;HOLDS HIGHEST MAP REGISTER NUMBER FROM ‘HIGEST:* 
;HOLDS LOWEST MAP REGISTER NUMBER FROM ‘UBMLOW:' 
;HOLDS HIGHEST MAP REGISTER NUMBER FROM ‘UBMHI:° 
;HOLDS LOWEST USEABLE PAR OF UPPER WINDOW 
;HOLDS 1/0 PAGE ADDR OF LOW 16 BITS OF 
;THE LOWEST USABLE MAP REGISTER 

:HOLDS 1/0 PAGE ADDR OF HIGH 6 BITS OF 

OF THE LOWEST USABLE MAP REGISTER 
;MULTIPLE ERROR ERROR COUNTER 

AUXILIARY COUNTER 

;FLAG TO INDICATE TO LAST PROGRAM PASS N 
;HOLDS TEST NUMBER FOR ERROR TYPE OUTS 
;HOLDS THE EXPECTED CPU ERROR CODE 

;HOLDS RECEIVED CPU ERROR CONDITION 

;HOLDS RECEIVED PARITY ERROR CONDITION 
;HOLDS CONTENTS OF CONTROL REGISTER 

sHOLDS CONTENTS OF MAINTENENCE REGISTER 
;HOLDS PC OF INST THAT CAUSED TRAP 

;HOLDS THE RETURN ADDRESS AFTER A TRAP 
;HOLDS THE OLD PROCESSOR STATUS 

;HOLDS OLD PSW FOR TBITRESTORE 

HOLDS CONTENTS OF MMRO AFTER TRAP 

;HOLDS CONTENTS OF MMR1 AFTER TRAP 

HOLDS CONTENTS OF MMR2 AFTER TRAP 

;WILL HOLD P.A.R. DATA FOR TOP OF MEMORY 
;RETRY FLAG IN CASE OF PARITY ABORTS 
LOCATION TO HOLD ESCAPE ADDRESS ON 
;PARITY ERRORS. 

;PATTERN TO BE USED TO LOAD INTO MEMORY 





: 001352 
572 001352 


575 001360 
576 
577 
578 001362 
581 001370 
582 
583 
584 001372 


585 001374 
586 


587 001376 
588 001400 
589 


590 
591 001402 
592 001404 
593 
594 001406 
595 001410 
596 


597 
598 001412 
599 001414 
600 


CKKUABO 11/44 UBI MAP 
ERROR POINTER TABLE 


022062 
030722 
022147 
030722 
022221 
026140 
030304 
030722 
022327 
026237 
030320 
030727 
022407 
026334 
030334 
030734 
022502 
026471 


030352 
030742 


ae 
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-SBTTL ERROR POINTER TABLE 

PARRA eeeeeReKeeeeeeeeeeeeeeeeeaeeraneetereeeereerererenereeeere 
[*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT oe OCCUR. 
:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUN 


;*NOT 
; *NOTE2: 


7ITEM 4 


D_IN 
:*LOCATION SITEMB. ante NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
E1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERR 


PC) 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


POINTS TO THE ERROR MESSAGE 
: TPOINTS TO THE DATA HEADER 
;;POINTS TO THE DATA 
;;POINTS TO THE DATA FORMAT 


;NOT THE CORRECT CPU TRAP nie THROUGH ERRVEC (#004) 
:RECELVD EXPECTD TESTNO PC AT ABORT 
:PCPUER, sr ee , TESTNO,BADPC ,0 


. 
° ’ ’ o 


sUNEXPECTED CPU TRAP ype ERRVEC (#004) 
;RECEIVD TESTNO PC AT ABORT 
:PCPUER, etnies: -BADPC ,0 


. 
a ’ ° 


;MEMORY MANAGEMENT TRAP, MEMORY MANAGEMENT STATUS REGISTERS 
STATUS AUTOI/D VIRTADR 

TREGISTR REGISTR REGISTR TESTNO PC AT ABORT 

;PMMRO,PMMR1, mt tenes , TESTNO,BADPC ,0 


: ’ ’ « e 


SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 
+REGADRS REGADRS 

‘OR’ "*AND"* MWERRORS TESTNO ERR PC 
; ADDROR , ADRAND ,ERRCNT , TESTNO, SERRPC ,0 


POE es er ee 
:SUMMARY OF DUAL ADDRESSING ERRORS ON LOADING MAP REGISTERS 
; REGLOAD REGLOAD tse REGDUAL 
oR’ AND'* #ERRORS TESTNO 
S ADDROR, ADRAND —- anne. ERRCNT,TESTNO,O 


Ps a ’ ’ ° 


aAPREG. OF BIT PATTERN FAILURES IN LOWER 16 BITS OF MAP REGISTERS 


mere MAPREG 
[ADDROR , ADRAND ,PATTOR, of Yaa: DATAOR, DATAND, ERRCNT, TESTNO,O 


Py ¢ . e ’ 6, e . 


oss AAD RECE Ivo RECELVD 


““AND'' #ERRORS TESTNO 


CKKUABO 11/44 UBI MAP 
‘ERROR POINTER TABLE 


t 
| 
| 


ek et et 
NOUS WN—O 


4 
625 001452 
ose 001454 


6 
628 001456 
434 001460 


1 
632 001462 
633 001464 
634 001466 
635 001470 


7 
638 001472 


001474 


022604 
026471 


030352 
030742 
022705 
026660 


030374 
030722 


023061 
026677 
030402 
030752 
023153 
030722 
023225 


026660 
030374 
030722 


023431 
026677 
030420 
030760 
023534 
027034 
030436 
030722 
023627 
026677 


030420 
030734 


;1TEM 7 


;1TEM 10 


;1TEM 11 


;ITEM 12 


sITEM 13 


ITEM 14 


:ITEM 15 


3; ITEM 16 
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SEQUENCE 32 Cl 


SEQ 0038 Si 


SaKPREG. OF BIT PATTERN FAILURES IN UPPER 6 BITS OF MAP REGISTERS 
APREG MAPREG EXPECTD wit D RECEIVD RECEIVD 
‘OR’ "“AND"' AND'’ = “‘OR" “AND'' #ERRORS TESTNO 
: ADDROR, ADRAND ,PATTOR, _— ,DATAOR ,DATAND ,ERRCNT, TESTNO,0 


sCAN'T GET TO MAIN MEMORY FROM UNIBUS WITH THE MAP OFF 
SO I'LL JUMP TO THE SIZE JUMPER TEST FOR VERIFICATION 
STESTNO ERR PC 

; TESTNO, SERRPC,0 


; SUMMARY OF COUNT PATTERN ite ON THE UNIBUS DATA PATH 

SEXPECTD ee eh RECEIV 
OR’ AND WERRORS TESTNO 

SPATTOR, PATAND, DATAOR, ,DATAND ,ERRCTN, TESTNO,0 


Ps ’ ’ ° ° o 


;UNIBUS a IS RELOCATING WHEN NOT ENABLED 
;TESTNO ERR PC 
yay eSERRPC,0 


;CANNOT USE ANY OF THE MAP REGISTERS OR PHYSICAL 
;ADDRESS BIT14 IS STUCK LOW, MUST RESTART PROGRAM 
;1F YOU DON'T LOOP ON THIS PROBLEM. 

;TESTNO ERR PC 

Sy ae sneeemmetcces 


SUMMARY OF UNIBUS ADDRESS ERRORS, WITH MAP RELOCATION DISABLED 
sEXPECTD EXPECTD RECEIVD RECE IVD 

""AND"* "‘AND'’ #ERRORS TESTNO 
; ADDROR , ADRAND —. -DATAND ,ERRCNT, TESTNO,O 


; ° * ° o i, 


;MAIN MEMORY TIME OUT OVER THE UNIBUS DID NOT OCCUR PROPERLY. 
;CONDITN CONDITN 

sEXPECTD RECEIVD TESTNO ERR PC 

SERVE FP OPER. ESS SERAPL 


; SUMMARY OF DUAL MAPPING ERRORS 
:EXPECTD ener RECEIVD RECEIVD 

AND*" "*AND"' WERRORS TESTNO 
: ADDROR,, ADRAND a ee »DATAND ,SERRPC, TESTNO,O 


LB, de Sede Se 


-—_———_——— — —_ - -_— 


‘CKKUABO 11/44 
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& 
m=z 


ERROR POINTER TABL SEQ 0039 
665 ;1TEM 17 
666 001532 023725 .WO —M17 sm UNIBUS ae EXISTS 
667 001534 026660 «WORD DH1IO ;TESTNO ERR PC 
668 001536 030374 «WORD 0T10 : TESTNO, SERRPC,0 
$68 001540 030722 «WORD ODF1 : i 
671 ;1TEM 20 
672 001542 023755 WORD EM20 too scones LOGIC TESTS TRAP TO LOCATION 114 DID NOT OCCUR 
673 001544 026660 -WORD DH10 sTESTNO ERR PC 
674 001546 030374 ~ WORD DT10 > TESTNO, SERRPC,0 
of? 001550 030722 -WORD ODF1 : 0. 0 
677 s ITEM 21 
678 001552 024054 » WORD EM21 ; INTERRUPT/ABORT TESTS R4& WAS OVERWRITTEN WITH 
679 “DATA woe THAT INSTRUCTION WAS NOT ABORTED 
680 001554 026660 j » WORD DH10 sTESTNO ERR P 
681 001556 930374 ~ WORD DT10 3 TESTNO,SERRPC,0 
ot 001560 030722 -WORD ODF1 ; 8, @ 
684 s1TEM 22 
685 001562 024132 WORD EM22 ; INTERRUPT/ABORT TESTS TRAP DID NOT OCCUR DUE TO ABORT 
686 001564 026660 ~ WORD DH10 : TESTNO ERR PC 
687 001566 030374 -WORD DT10 ;TESTNO,SERRPC,0 
re} 001570 030722 -WORD ODF1 : 0, 0 . 
690 sITEM 23 #3 
691 001572 024220 -WORD €M23 — - ,oases gr4ry 
692 001574 027113 -WORD DH23 TESTNO ERR PC LMAEXP LMARCV 
693 001576 030450 » WORD DT23 “TESTNO, SERRPC, EADRES. EADRS2,0 
“ 001600 030766 -WORD DF23 73,622 
696 s ITEM 24 
097 001602 024250 WORD EM24 ;LMA FORCE JUMPER BIT NOT ZERO 
698 001604 027154 » WORD DH24 s;TESTNO ERR PC ‘LMAEXP LMARCV 
699 001606 030462 WORD D124 ; TESTNO, SERRPC,$REG1,LMAHI ,0 
A 001610 030722 ~WORD ODF1 . §, 6, 8. § 
702 s ITEM 25 
703 001612 24306 . WORD EM25 ;LMA FORCE JUMPER BIT NOT SET 
704 001614 027154 WORD DH24 st€STNO ERR PC LMAEXP LMARCV 
705 001616 030462 WORD D124 sTESTNO,SERRPC ,$REG1,LMAHI ,0 
~ 001620 030722 -WORD ODF1 8. & 6. § 
708 s ITEM 26 
709 001622 024343 -WORD EM26 ;LMA CONTROL BITS INCORRECT 
710 001624 027154 «WORD DH24 ;TESTNO ERR PC LMAEXP LMARCV 
711 001626 030474 -WORD D126 3; TESTNO, SERRPC ,STMPO, $REG2,0 
Ne 001630 030722 -WORD ODF1 ; 0, 0, 0, 0 
714 sI1TEM 27 
715 001632 024376 WO EM27 sFORCE JUMPER BIT FAILS TO +) iat MAP REGISTER STATUS TO DEFAULT 
716 001634 027213 WORD DH27 ;TESTNO ERR PC LMARCV KIPAR 
717 001636 030506 -WORD DI27 :TESTNO, SERRPC,STMPO,KIPARG, - 
718 001640 030722 -WORD ODF1 : . 0, 0 


-—-—-- = ee _ oie a — — - 
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we POINTER TABLE SEQ 0040 
s ITEM 30 
0 001642 024476 ~ WORD EM30 sKIPARS NOT LOADED coh - SKIPPING NEXT TEST 
| 721 001644 027252 ~ WORD DH30 ;TESTNO ERR PC PRSEXP PRSRCV 
722 001646 030520 “WORD D130 =: TESTNO,SERRPC,STMPS,KIPARS,0 
723 001650 030722 “WORD DF 1 : 0, 0, 0, 0 


CKKUABO 11/44 UBI MAP 
ERROR POINTER TABLE 
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724 001652 ER200: 

725 

726 

727 ; 

728 s1TEM 201 

729 001 024556 -WORD €M201 
730 001654 027311 -WORD DH201 
731 1 030532 -WORD DT201 
Le 001660 030772 «WORD DF201 
734 sI1TEM 202 

735 001662 024632 «WORD EM202 
r36 001664 027340 -WORD DH202 
738 001666 030542 «WORD 01202 
S44 001670 030742 »WORD ODF6 
741 sITEM 203 

742 001672 024725 -WORD €M203 
743 001674 027447 » WORD DH203 
744 001676 030556 ~ WORD DT203 
ni 001700 030772 -WORD DF201 
747 : ITEM 204 

748 001702 025006 -WORD EM204 
749 001704 027530 WORD DH204 
750 001706 030574 -WORD DT204 
Pi 001710 031000 -WORD DF204 
753 - sITEM 205 

754 001712 025055 -WORD €M205 
ree 001714 027601 -WORD DH205 
757 001716 030610 -WORD 01205 
es 001720 030760 -WORD DF14 
760 : ITEM 206 

761 001722 025137 -WORD €EM206 
762 001724 027666 WORD DH206 
763 001726 030622 -WORD DT206 
be: 001730 030772 -WORD DF201 
766 Zs ITEM 207 

767 001732 025170 -WORD €M207 
768 001734 027736 WORD DH207 
769 001736 030636 -WORD D1207 
my 001740 030772 -WORD DF201 
772 s1TEM 210 

773 001742 025277 -WORD €M210 
774 001744 027777 -WORD DH210 
775 001746 030650 -WORD DT1210 
776 001750 031005 -WORD DF210 


C 4 
SEQUENCE 35 
SEQ 0041 


;THIS IS THE ig POINT FOR ERROR MESSAGES 
3201 THROUGH 377. THEY ARE USED FOR MULTIPLE 
;ERROR MESSAGES. 


THE FOLLOWING ei Bee TIMED OUT WHEN READ 
;REGADRS TESTNO ERR 
;EADRES, — »SERRPC, ° 


. 
° ’ ’ 


he FOLLOWING ARE DUAL ADDRESSING ERRORS IN THE UNIBUS MAP 
APREG oon Ay NON-ZER 

Tes TING LED CONTNTS TESTNO ERR PC 

SEADRES, EADRS?. S$TMP3,TESTNO,SERRPC ,0 


: 2, 2, 0, 0, 0 


;THE BIT PATTERN THROUGH THE MAP REGISTERS FAILED 
s;REGADRS  PATTRN EXPCTD RECEVD TESTNO ERR PC 
eg va We We We Veesecdnnetens seantione 


. 
° o ° e e ¢ 


;UNIBUS DATA PATH COUNT PATTERN FAILURE 
sEXPECTD RECEIVD ADDRSLOAD TESTNO ERR PC 
> Nari SS adnate tenes 


;UNIBUS ADDRESSING ERRORS, MAP RELOCATION DISABLED 
ADDRESS ADDRESS 

sEXPECTD RECEIVD _TESTNO ERR PC 
:EADRES ,EADRS2, TESTNO, SERRPC 0 


;DATA PATTERN NOT CORRECT 
ADDRESS EXPCTD RECVED TESTNO ERR PC 
ag ag ag hy etter tearm: 


. 
o ° e ° ’ 


;REFERENCED MAP REGISTER 0 WITH ADDRESS ONE BIT DIFFERENT THAN 17770 


;ADDRUSED BITDIFF TESTNO ERR PC 
;EADRES ,SREGO, TESTNO, SERRPC ,0 


:2, 0, 6, 0 


;MAP_ REGISTER gt TEST DID NOT RESPOND IN DUAL MAPPING TEST 
:TESTNO ERR PC MAPREGADR 
: TESTNO, ee T EADRES. 0 


. 
. o . 


—_ 


D 4 
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ERROR POINTER TABLE SEQ 0042 
777 S1TEM 211 
778 001752 025377 ,WORD €M211 ; RELOCATION THROUGH THE MAP WAS NOT CORRECT, CARRY PROPAGATION 
77 :TEST BEING RUN OVER UNIBUS 
780 001754 030031 .WORD DH211 : CORRECT EXPECTD RECELVD 
78h " ADDRESS FROM UB TESTNO ERR PC 
| 782 001756 030660 ,WORD DT211.  : EADRES, $ReGs. SREG2. TESTNO, SERRPC,0 
| 783 001760 030772 “WORD DF201 : 2, 0,0, 0» 0 
| 
| 3 es S1TEM 212 
«786 001762 025535 “WORD €M212 ; MAIN MEMORY TIME OUT OVER | THE UNIBUS DID NOT OCCUR PROPERLY. 
| -7B7 “TEST BEING RUN OVER UNIBUS 
788 001764 030031 .WORD DH211.—-:CONDITN CONDITN 
| 789 SEXPECTD RECEIVD TESTNO ERR PC 
| 790 001766 030660 .WORD DT211 —-: CPUEXP, PCPUER, TESTNO, SERRPC, 0 
791 001770 030772 “WORD DF201 =: 0, 0, 0, 0 
793 SI TEM 213 
794 001772 925670 “WORD €M213 MAP REGISTER ENABLED WHEN DDW SAYS i Hout BE DISABLED 
795 001774 030213 "WORD DH213  :TESTNO ERR PC REG NO DDWDAT DDWA 
796 001776 030706 . WORD DT213 s TESTNO, SERRPC,STMPO,STMP1,$REGS,0 
797 002000 030722 “WORD DF 1 : 0, 0, 0, 0, 0 
sITEM 214 
002002 025761 ,WORD €M214  ;MAP REGISTER DISABLED WHEN DDW SAYS IT SHOULD BE ENABLED 
B01 002004 030213 "WORD DH213. :TESTNO ERR PC REG NO DDWDAT DDWADR 
802 002006 030706 "WORD DT213  :TESTNO,SERRPC,$TMPO,$TMP1,$REG5,0 
803 002010 030722 “WORD DF : 0, 0, 0, 0, 0 


—E 4 
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SOFTWARE SWITCH REGISTER LOCATION 


—_ 


804 -SBTTL SOFTWARE SWITCH "hed ia LOCATION 

805 002912 .SY= ;SAVE ADDRESS LOCATION 

806 000176 =176 ;ADDRESS TO SOFTWARE SWITCH REGISTER LOCATION 
807 000176 000000 $SSWR: .WORD 0 TLOCATION FOR SOFTWARE SWITCH REGISTER 

808 002012 .=.$Y ;RETURN TO PREVIOUS ADDRESS LOCATION 


SEQ 0043 


CKKUABO 11/44 UBI MAP 


ERROR MESSAGE TYPE OUT ROUTINE 


0 00 C9 C9 CO. CD CD OD CD CD CD 
~~," 


ee ed aed ed ad od ed 
OWOOWWNAOULSWNH Oo” 


858 034 
859 002036 


010046 

00 
Antane 001112 
varias 001114 


005300 
072027 000003 


F 4 
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» SBTTL ERROR MESSAGE TYPE OUT ROUTINE 


SRR AAREAAAEETEAAEEEEEREATEAAAEAAAAAAAHEHAAAEKEKAARAAAAAAAAES 


TY 
;@ CONTINUE : NEXT INSTRUCTION 
AT A CONVENIENT SPOT, ALOCATE THE FOLLOWING. 
S DTNAME : -WORD DTLIST, DFNAME ; IDENTIFY THE LIST NAME AND DATA FORMAT BELOW 
:*DFNAME : “BYTE N,N,N,N,ETC. ;CONSTRUCT YOUR OWN DATA FORMAT LINE 


-* 

ss THIS SUBROUTINE IS CALLED BY THE ERROR HANDLER TO TYPE 

- THE ERROR MESSAGES. IT PICKS UP THE ITEM BYTE (SITEMB) NUMBER 
:* AND USES THAT TO INDEX THROUGH THE ERROR TABLE. THE ERROR 

:* TABLE STARTS AT “SERRTB" AND HAS FOUR (4) POINTERS FOR EACH 

7" ENTRY, ‘EM', ‘DH’, ‘OT’, "DF*. THE ‘EM’ POINTS TO THE ERROR 

‘* MESSAGE WHICH IS AN ASCIZ STRING. THE ‘DH’ POINTS TO THE DATA 
:* HEADER WHICH IS ANOTHER ASCIZ STRING. THE ‘DT* POINTS TO THE 

;* DATA TABLE WHICH IS A GROUP OF WORDS se han pee ADDRESSES 

OF THE DATA TO BY TYPED. THE FORMAT OF THIS DATA IS 

es CONTROLLED BY THE ‘DF* WHICH IS THE POINTER TO THE DATA FORMAT. 
3* THE DATA FORMAT IS A GROUP OF BYTES WHICH CONTAIN NUMBERS 

ee THAT CORRESPOND TO dep HH TYPING FORMATS. 

:* -16 BIT ye FORMAT 

:* “DECIMAL FORMAT 

g* 2 -22 BIT OCTAL FORMAT. DATA IS LOWER 16 BITS OF THE 

;* PHYSICAL ADDRESS, UPPER 6 BITS ARE ADJACENT TO LOWER 16 
bes 3 -22 BIT OCTAL FORMAT. DATA IS THE 16 BIT VIRTUAL 

s¢ ADDRESS IN KERNEL I-SPACE. 

3” 4 -18 BIT OCTAL FORMAT. DATA IS A 16 BIT NUMBER THAT 

bes WILL BE CONVERTED INTO A UNIBUS ADDRESS BY LEFT 

:* SHIFTING IT 6 BITS. 

rt 5 -16 BIT OCTAL, SUPPRESS LEADING ZEROS 

:* 6 -16 BIT DECIMAL SUPPRESS SPACES 

:* IF YOU SHOULD HAVE A NEED TO JUST TYPE A STRING OF 

be NUMBERS, SET UP YOUR CODE THIS WAY 

s@ MOV #CONTINUE ,-(SP) :MO VE THE ADDRESS OF THE INSTRUCTION AFTER THE 
7° JUMP TO THE STACK 

;* MOV RO,-(SP) SAVE RO 

i@ MOV R1,-(SP) ;AND Ri ON THE STACK 

:* ye! DTNAME ,RO [MOVE THE ADDRESS OF THE DATA TABLE TO RO 
hed PDAT SUBROUTINE IDENTIFIED IN CENTER GF THIS ROUTINE 


38 -EVEN 
s*DTLIST: VAR1,VAR2,VAR3,VAR4,....,SCRLF,0 ;VARIABLES YOU WANT TYPED 
jptteeeeeeenecereccerteceeeeretecsantenessnnasensteneeseneseeeene 
ERTYPE: MOV RO,-(KSP) ;SAVE RO ON STACK 
CLR RO CLEAR RO 
MOVB $I1TEMB,RO ;PUT ITEM NUMBER IN RO 
BNE 1$ [BRANCH IF IT IS NON-ZERO 
MOV SERRPC,-(KSP)  ;PUT ERROR PC ON STACK FOR TYPING 
TYPOC TYPE FAILING PC 
BR 13$ 3GO TO RETURN 
1$: DEC RO [ADJUST ITEM NUMBER TO BE A POINTER 


ASH #3,R0 ;LEFT SHIFT ITEM NO. 3 PLACES 


860 002042 
861 002044 
862 002052 
863 002054 
864 002056 
865 002064 


100041 BPL 
923727 001302 000020 CMP 
002410 BLT 
001404 BEQ 
062766 000004 000002 ADD 
000547 BR 


22$ 
ERRCNT #20 
408 


41$ 
#4 ,2(KSP) 


138 


;BRANCH IF ITEM NUMBER IS LESS THAN 200 
z3* SEE IF 20 (OCTAL) ERRORS HAVE 1 pe 


3;* BRANCH TO PRINT THE ERROR IF 


LESS 
3;* BRANCH TO TYPE NO MORE DATA Lines IF 
3;* CORRECT PC RETURN TO RETURN AFTER <CRLF> PRINT 


33* GO TO RETURN 


EQUAL 


SEQ 0045 
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ERROR MESSAGE TYPE OUT ROUTINE SEQ 0046 
002066 104400 007260 41$: TYPE NOMORE 330 hg aoe TO ANNOUNCE NO MORE PRINTING OF ERRORS 
867 002072 000544 BR 13$ +:* GO TO RETURN 
868 002074 022737 000001 001302 40$: CMP #1 ,ERRCNT ji SEE IF THIS IS THE FIRST ERROR 
869 002102 001415 BEQ 21$ s>@ BRANCH IF IT WAS GO TYPE ERROR MESSAGE 
870 002104 032777 000200 177036 BIT #SW7,aSWR :SEE IF SWITCH 7 IS U 
871 002112 001404 BEQ 208 ‘BRANCH IF SWITCH NOY c AND it a Dec 
872 002114 062766 000004 000002 ADD #4 ,2(KSP) sSKIP ‘TYPE ,$CRLF‘ IF Sw 7 IS 
873 ; INHIBIT MULTIPLE ERROR WyPEOUTS” 
874 002122 000530 BR 13$ ‘BRANCH TO EXIT 
875 002124 042700 177400 208: BIC #177400,R0 ;CLEAR UPPER BYTE OF RO 
876 002130 062700 001656 ADD #ER200+4 ,RO ‘POINT TO DATA TABLE ENTRY 
877 002134 000426 BR s$ +60 TYPE DATA TABLE 
878 002136 042700 177000 218: BIC #177000,R0 CLEAR UPPER BYTE OF RO 
879 002142 062700 000300 ADD #<ER200-SERRTB>, io sADD DIFFERENCE BETWEEN 
880 ITEM 1 AND ITEM 201 
881 :GET POINTER TO ERROR MESSAGE AND TYPE IT 
882 :1f THE POINTER IS NOT ZERO 
B83 002146 104400 001221 22$: ‘TYPE SSCRLF sTYPE A <CRLF> 
884 002152 062700 001352 ADD #SERRTB,RO ADD BASE OF ERROR TABLE 
885 002156 012037 002166 MOV (RO)+,2$ :P M MESSAGE POINTER IN TYPE STATEMENT 
886 002162 001404 BEQ 3$ > BRANCH IF NO ERROR MESSAGE 
887 002164 104400 TYPE ; TYPE ERROR MESSAGE 
888 002166 000000 2$: \WORD 0 ‘POINTER TO ERROR MESSAGE 
889 002170 104400 001221 TYPE SSCRLF “TYPE CRLF 
890 + GET THE POINTER TO THE DATA HEADER AND 
891 ;:TYPE IT IF THE POINTER IS NOT ZERO 
892 002174 012037 002204 3$: MOV (RO)+,48— ;PUT HEADER POINTER IN TYPE STATEMENT 
893 002200 001404 BEQ 5$ :BRANCH IF NO DATA HEADER 
894 002202 104400 TYPE s TYPE THE DATA HEADER 
895 002204 000000 4$: .WORD 0 “POINTER TO DATA HEADER 
896 002206 104400 001221 TYPE S$CRLF “TYPE CRLF 
897 ::1HIS IS THE START OF THE DATA OUTPUT IF THE 
698 ::DATA POINTER IS NOT ZERO. RO POINTS TO THE 
899 ::DATA FORMAT, R1 POINTS TO THE ADDRESS OF 
900 3: THE DATA WORDS. 
901 002212 010146 5$: MOV R1,-(KSP) sSAVE R1 ON THE STACK 
902 002214 TYPDAT=. 
903 002214 012001 MOV (RO)+,R1 ;PUT DATA TABLE > IN R1 
904 002216 001471 BEQ 12$ :BRANCH IF NO DATA TABLE 
905 002220 012000 MOV (RO) +,RO ;PICK UP DATA va POINTER 
906 002222 105710 6$: TSTB (RO) 31S THIS WORD OCTA 
907 002224 001003 BNE 7% ‘BRANCH IF NOT 16-BIT OCTAL 
908 : WORD 1§ 16 BIT OCTAL FORMAT (DF = 0) 
909 002226 013146 MOV a(Ri)+, -iKSP) ;PUSH NEXT 16-BIT WORD ON STACK 
910 002230 104402 TYPOC : TYPE THE WORD ON STACK AS 16 BIT OCTAL 
911 002232 000456 BR 11$ GET READY FOR NEXT WORD 
912 002234 122710 000001 7$: CMPB es #1, (RO) ‘1S THE WORD DECIMAL 
913 002240 001003 BNE 8$ *BR ANCH IF NOT DECIMAL 
914 WORD 1§ DECIMAL FORMAT (DF = 1) 
915 002242 013146 MOV a(Ri)+, whiter) sPUSH NEXT 16-BIT WORD ON STACK 


916 002244 104410 TYPDS :TYPE THE WORD ON STACK AS DECIMAL 


7" READY FOR NEXT WORD 
WORD 22-BIT PHYSICAL ADDRESS 
‘BRA NCH _IF NOT tp PHYSICAL ADDR 
:WORD 18 22-BIT PHYSICAL FORMAT (DF = 2 
;PUSH NEXT 16-BIT WORD ON STACK 
CONVERT NUMBER TO OCTAL ASCIZ 


J & 
CKKUABO 11/ MAP MACRO M1113 OS-NOV-80 14:09 PAGE 37-2 SEQUENCE 40 Cl 


— 
~«< 
vue 


44 
ERROR MESSAGE € OUT ROUTINE SEQ 0048 MI 
3 002264 062716 000003 ADD @S, (KSP) ;ONLY WANT 8 DIG 
924 002270 012637 002276 MOV (KSP)+, 308 ‘PUT POINTER AFTER ‘TYPE’ CALL 
925 002274 104400 TYPE :TYPE ASCIZ STRIN 
926 002276 000000 30$: .WORD 0 ;WORD HOLDS POINTER TO ASCIZ STRING 
27 002300 000433 BR 11$ :GET READY FOR NEXT 
| 928 002302 122710 000003 98: CMPB ss #3, (RO) 1S THIS A 16-BIT VIRTUAL jAboRESS 
| 929 002306 001004 BNE 10$ “BRANCH IF NOT 16-BIT VIRT. ADDR. 
930 :WORD 1§ 22-BIT VIRTUAL ADDRESS FORMAT 
931 © KERNEL I- SPACE ASSUMED. (DF 
932 002310 013146 MOV acRi)+, ~ (SP) PUSH NEXT 16-BIT WORD ON STA Ck | 
933 002312 004737 002414 JSR PC, TYPVAD 60 TYPE 22-BIT ADDRESS FROM 16-BIT V.A. 
934 002316 000424 BR 11¢ [GET READY FOR NEXT WORD 
935 002320 122710 000004 10$: CMPB «#4, (RO) 71S THIS A 16 BIT NUMBER TO BE CONVERTED TO 
936 :AN 18 BIT UNIBUS ADDRESS LEFT SHIFTED 6? | 
937 002324 001003 il BNE 100$ -SKIP OVER FORMAT & ROUTINE IF NOT 
938 :WORD 1§ FORMAT 4. DATA WORD IS A UNIBUS 
939 : TADDRESS OUTPUT WILL BE 18-BITS WORD LEFT SHIFTED 6. | 
| 941 002326 004737 002522 JSR PC ,UBADDR CONVERT TO 18-BIT UNIBUS ADDR AND TYPE 
942 002332 000416 BR 11 :GET READY FOR NEXT WORD 
| 943 002334 122710 000005 100$: CMPB #5, (RO) :1S THIS A 16 BIT NUMBER TO BE PRINTED AS 
944 SOCTAL WITH LEADING ZEROS SUPPRESSED? 
945 002340 001004 BNE 1108 ‘BRANCH TO DECIMAL LEADING SPACES SUPPRESS ROUTINE 
946 :WORD IS FORMAT 5. DATA WORD IS TO BE 
947 :PRINTED IN OCTAL, LEADING ZEROS SUPPRESSED. 
948 002342 013146 MOV a(Ri)+, ~ (RSP) ;PUSH NEXT 16-BIT WORD ON STACK 
| 949 002344 104404 TYPOS :GO TYPE OCTAL SUPPRESS LEADING ZEROS 
950 002346 006 .BYTE 6 sTYPE 6 DIGITS AND 
951 002347 000 ‘BYTE 0 [SUPPRESS LEADING ZEROS 
952 002350 000407 BR 11$ :GET READY FOR NEXT WORD 
953 002352 110$: ;:WORD 1S FORMAT 6. DATA WORD IS TO BE 
954 :PRINTED IN DECIMAL, LEADING SPACES | SUPPRESSED. 
¥55 002352 013146 MOV a(Rri)+, ~(KSP) :PUSH NEXT 16-BIT WORD ON STA 
956 002354 112737 000001 002413 MOVB #1, SPSUPP :SET FLAG TO SUPPRESS LEADING: SPACES 
957 002362 104410 TYPDS 
| 958 002364 105037 002413 CLRB = SPSUPP :CLEAR THE LEADING SPACES SUPPRESS FLAG 
| 959 002370 005200 11$: INC RO :POINT TO NEXT FORMAT BYTE 
960 002372 104400 002410 TYPE 328 > TYPE TWO SPACES 
961 002376 005711 TST (R1) [1S THERE ANOTHER WORD? 
962 002400 001310 BNE 6$ :BRANCH IF NOT ALL DONE 
963 002402 012601 12$: MOV (KSP)+,R1 SRESTORE R1 
002404 012600 13$: MOV (KSP)+,RO sRESTORE RO 
965 002406 000207 RTS PC sRETURN TO ERROR ROUTINE 
966 002410 040 040 000 328: .ASCIZ 2? :T¥o SPACES 
967 002413 000 SPSUPP: .BYTE 0 LEADING ZEROS SUPPRESS FLAG LOCATION 


CKKUABO 11/44 UBI MAP 


380 002414 104412 


2512 000000 


2514 104414 
2516 012616 
2520 000207 
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CONVERT 16-BIT VIRTUAL ADDRESS TO 22-BIT PHYSICAL ADDRESS 


000002 
000003 


172340 


000006 


001226 
001224 
001224 
004166 
000003 
002512 


-SBTTL CONVERT 16-BIT VIRTUAL ADDRESS TO 22-BIT PHYSICAL ADDRESS 


—MmARBRRBRBEZELARESELERAR ELLE SELES ERE R ERR SERA RAR RRR RARER ALARA AAAS SA 


‘* 

; THIS ROUTINE IS CALLED BY A ‘JSR PC* AFTER THE VIRTUAL ADDRESS 
;@ 1S PUSHED ON THE KERNEL STACK. THE V.A. IS THEN LOADED INTO 
;* Ri AND THE UPPER 3 BITS ARE SHIFTED INTO RO TO SELECT THE 

;@ CORRECT KERNEL I-SPACE PAR. THE LOWER 12 BITS OF THE VIRTUAL 
39 ADDRESS ARE ADDED TO THE PAR AS THEY ARE BY MEMORY MANAGEMENT 
;* AND THE PHYSICAL ADDRESS IS SAVED IN MEMORY TO BE CONVERTED 

7° TO ASCIZ AND TYPED. 

:* 
Y 


: 
. 
’ 
. 
. 
. 
: 
. 
* 
*: PREP RRRERERASELE RA RARE SE REERE AER E EERE RRS ASE ASA RASA RRR RAR SAAS SBS | 
T 


PVAD: SAVREG ;SAVE ALL REGISTERS 
MOV 2(KSP) ,R1 ;PUT VIRTUAL ADDR IN R1 
CLR RO ;CLEAR RO FOR CALCULATIONS 
ASHC #3,R0 ;LEFT SHIFT RO,R1 3 i 
ASL RO ;LEFT SHIFT RO ONE MORE PLACE 
ROR R1 ;RIGHT SHIFT R1 SO OFFSET” IS CORRECT 
ROR R1 :RIGHT SHIFT R1 
ROR R1 :RIGHT SHIFT R1 
ADD #K IPARO,RO ;FORM DESIRED PAR ADDR IN RO 
MOV (RO) ,R3 ;PUT CONTENTS OF PAR IN R3 
CLR R2 CLEAR R2 FOR PHYSICAL Baye CALCULATIONS 
ASHC #6 ,R2 :LEFT SHIFT <R2,R3> 6 PLACES 
ADD R1,R3 ;ADD OFFSET IN R1 TO BASE IN R3 
ADC R2 ZADD ANY POSSIBLE CARRY TO UPPER 6 BITS 


MOV R2,PADRSH ;PUT UPPER 6 BITS OF ADDR IN CORE 

MOV R3,PADRSL :PUT LOWER 16 BITS OF ADDR IN CORE 

MOV #PADRSL,-(KSP) ;PUT POINTER TO LOWER 16 BITS ON STACK 
JSR PC ,$0B20 :CONVERT NUMBER TO OCTAL ASCIZ 


ADD #3, (KSP) SONLY TYPE 8 DIGITS 

MOV (KSP)+,3$ ;PUT POINTER AFTER TYPE INST 

TYPE TYPE THE 22-BIT VIRTUAL ADDRESS 
3$: -WORD 0 :THIS WORD mye THE POINTER TO 

THE ASCIZ STRING 

RESREG TRESTORE ALL THE REGISTERS 

MOV (KSP)+, (KSP) [LEAVE ONLY RETURN ADDR ON STACK 

RTS PC ;RETURN TO ERROR HANDLER 


SEQ 0049 


CKKUABO 11/44 UBI1 MAP 


| 
| 


| 


222228888 
sssssssssess 


oO 
™~ 
ue 
oon 


ek kk ak ak a a tt 
leloleololeleleleleleleleleloleleloja) 
MUEFWN—ODOOnNoOu 
YVSUSSSSL 
MAMAMAWNO Lr 


MMMM NMNPNND — a a es 


7 002576 


104412 


012616 
000207 
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SUBROUTINE TO CONVERT WORD TO A UNIBUS ADDRESS AND TYPE 


000002 


000006 
001224 


002570 


SEQ 0050 
» SBTTL SUBROUTINE TO CONVERT WORD TO A UNIBUS ADDRESS AND TYPE | 


seeeeeeeeeeeeeeeeererereeeeeeteeeneeeeeeeeeenereneeeeeerereees 
aTHIS SUBROUTINE IS USED TO CONVERT THE A WORD PUSHED 
;*ON THE STACK INTO A es ADDRESS AND TYPE IT AS A 
:*6 DIGIT NUMBER. IT USES R1 & RO AND LEAVES 
T*ALL OTHER REGISTERS UNCHANGED. 


PL eeeeeketateteeeeeerereeeeretetetetaKetereAKAKeneraneneeenKereee 


UBADDR: SAVREG 
MOV 2(KSP) ,R1 ;LOAD 16 BIT ADDRESS INTO R1 
CLR RO CLEAR RO FOR CALCULATIONS 


ASHC #6 ,RO [LEFT SHIFT <RO:R1> 6 PLACES 
MOV R1,PADRSL :PUT LOWER 16 BITS IN PADRSL 
MOV RU, PADRSH ;PUT UPPER 6 BITS IN PADRSH 
MOV #PADRSL,-(KSP) ;PUSH POINTER TO WORDS ON STACK 
JSR PC ,$0B20 ; JUMP TO CONVERT ROUTINE 
ADD #5, (KSP) ;ONLY USE LOWER 6 CHARS 
rvPe (KSP)+,3$ ;PUT POINTER AFTER TYPE “CALL. 
Y 

3$: eats 0 ;HOLDS POINTER TO FIRST CHAR. 
MOV (KSP)+, (KSP) ;LEAVE ONLY RETURN ADDRESS ON STACK 
RTS PC ;RETURN TO ERROR TYPE ROUTINE. 


Mm 4 
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‘SAVE AND RESTORE RO-R5 ROUTINES SEQ 0051 


1028 -SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


; FRR AAAAEEAAATEAEAA TATE AEAEEEEAAAEAAAAAAAAAHEEEAATEREEEE 


| 
| 
T#SAVE RO-RS 


s*CALL: 

3* SAVREG 

;*UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 

;* 

3 tTOP---(+16) 

ie +2---(+18) 

3% 44---R5 

p* 46---R4 

pt +B---R3 

3*410---R2 

3#412---R1 

3#4+14---R0 
002600 SSAVREG: 
002600 010046 MOV RO,-(SP) >;PUSH RO ON STACK 
002602 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 
002604 010246 MOV R2,-(SP) 37PUSH R2 ON STACK 
002606 010346 MOV R3,-(SP) 7;PUSH R3 ON STACK 
002610 010446 MOV R4,-(SP) ;;PUSH R& ON STACK 
002612 010546 MOV R5S,-(SP) 3;PUSH R5 ON STACK 
002614 016646 000022 MOV 22(SP), =(SP) :;SAVE PS OF MAIN FLOW 
002620 016646 000022 MOV 22(SP) ,-(SP) s;SAVE PC OF MAIN FLOW 
002624 016546 000022 MOV 22(SP),-(SP) 3;SAVE PS OF CALL 
002630 016646 000022 MOV 22( SP) .-(SP) 7;SAVE PC OF CALL 
002634 000002 RTI 

s*RESTORE RO-R5 

s*CALL: 

7* RESREG 
002636 SRESREG: 
002636 012666 000022 MOV (SP)+,22(SP) ; RESTORE PC OF CALL 
002642 012666 000022 MOV (SP)+,22(SP) ; RESTORE PS OF CALL 
002646 012666 000022 MOV (SP)+,22(SP) ; RESTORE PC OF MAIN FLOW 

012666 000022 MOV (SP)+,22(SP) : :RESTORE PS OF MAIN FLOW 

002656 012605 MOV (SP)+,R5 POP STACK INTO R5 
002660 012604 MOV (SP)+,R4 : POP STACK INTO R4 
002662 012603 MOV (SP)+,R3 : POP STACK INTO R3 
002664 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
002666 012601 MOV (SP)+,R1 ::;POP STACK INTO R1 
002670 012600 MOV (SP)+,R0 :;POP STACK INTO RO 
002672 000002 RTI 


-—— 
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/CKKUABO 11/44 UB] MAP MACRO M1113 05-NOV-80 14:09 PAGE 41 SEQUENCE 44 

TYPE ROUTINE SEQ 0052 
| 

| 1029 -SBTTL TYPE ROUTINE 


Ff RARAAAAAAAAAAAAEAEAAAAAAHEAA EAHA AAAAERARAAKERERAAAEARERERE AAAs 


;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 aE 


; :* THE ro ae WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
< 3 *N NOTE1 SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
:*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
; NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
ACA LL 
:91) USING A TRAP ad sage 
ao YPE »MESAD 7;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
+t 
;° TYPE 
;* MESADR 


42) USING A JSR eet 
MOV PS,-(SP) 


7* JSR PC, STYPE 
;* MESADDR 
TYPE: TSTB STPFLG 


3¢ 3;PUSH PROCESSOR STATUS WORD ON THE STACK 
; ;;CALL TYPE ROUTINE 

: ::FIRST ADRESS OF MESSAGE 

$ 33;1S THERE A TERMINAL? 


002674 105737 001147 


002700 100002 BPL 1$ ::BR IF YES 
002702 000000 HALT ::HALT HERE IF NO TERMINAL 
002704 000413 BR 3$ LEAVE 
002706 010046 1$: MOV RO,-(SP) 7: SAVE RO 
002710 017600 000002 MOV a2(SP),RO *GET ADDRESS OF ASCIZ STRING 
002714 132737 000040 020035 BITB #40,$ENVM ‘be SUPRESS TYPEOUTS? 
002722 001003 BNE 0$ [88 YES 
002724 112046 2$: MOVB = (RO) +, = (SP) >; PUSH CHARACTER TO BE TYPED {ONTO STACK 
002726 001005 BNE 4$ :i3BR IF IT ISN'T THE TERMINA 
002730 005726 TST (SP)+ - IF TERMINATOR POP IT OFF Me * stace 
002732 012600 60$: MOV (SP)+,RO “$8 RESTORE RO 
002734 062716 000002 3$; ADD #2, (SP) +:ADJUST RETURN PC 
002740 000002 RTI >: RETURN 
002742 122716 000011 4$: CMPB es #HT,, (SP) ::BRANCH IF <HT> 
002746 001426 BEQ at 
002750 122716 000200 CMPB es CRLF, (SP) ::BRANCH IF NOT 
002754 001004 BNE 5$ 
002756 005726 TST (SP) + :;POP <CR><LF> EQUIV 
002760 104400 001221 TYPE SCRLF 
002764 000757 BR bg ::GET NEXT CHARACTER 
002766 004737 003050 5$: JSR PC, STYPEC *:GO TYPE THIS CHARACTE 
002772 123726 001146 6$: CMPB ss SFALLC,(SP)*  ::1S IT TIME FOR FILLER CHARS.? 
002776 001352 BNE 2$ :31F NO GO GET NEXT CHA 
013746 001144 MOV $NULL,-(SP) [GET # OF FILLER (MARS. “NEEDED 
S:AND THE NULL CHA 
3004 000001 7$: DECB~—s«AAC SP) ;;DOES A NULL NEED TO BE TYPED? 
003010 BLT 6$ :BR IF NO=-GO POP THE NULL OFF OF STACK 
003012 003050 JSR PC, STYPEC 360 TYPE A 
003016 003200 DECB ° S$SCHARCNT >: DON NT COUNT ThE NULL AS A CHARACTER 


BR 7$ 
;;HORIZONTAL TAB PROCESSOR 


Leis 000040 8$: MOVB (SP) 
004737 003050 9$: JSR ‘ J$TYPEC 
132737 000007 003200 B1TB "SCHARCNT 
001372 BNE 

005726 TST Thee 
000726 BR 2$ 


5 
Hg TAB WITH SPACE 
E A SPACE 


saiye 
38h ANCH IF NOT AT 
STOP 


‘DOP SPACE OFF STACK 
3;GET NEXT CHARACTER 


oc 


r 


CKKUABO 11/44 UBI1 MAP 
/TYPE ROUTINE 


003202 


oo Ss SS SS 

mws—oo-—-coO 

ea te Re ee Spe: 
~ 


oos 


000207 


MACRO M1113 05-NOV-80 14:09 


176064 


000002 
176044 


176040 
177600 
000023 
176012 
176006 
177600 
000021 
000015 
003200 


000012 


176056 


006140 
006140 
006140 


006140 
006140 
006140 


000002 


000002 


STYPEC: it 


3$: TSTB 


2$: CMPB 


1$: CMPB 


B 
$SCHARCNT: .WORD 
$STYPEX: RTS 
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asTPs 


$ 
2 


TYPEC 
Ho Teta 
asTKs 


rf 
@$TKB,CHARCT 


23,C 
$ 


#177600, CHARCT 


a$TKS 

3¢ 

a$TKB, CHARCT 
#177600, CHARCT 


# 
s 
1 
$ 


21,CHARCT 


CR,2(SP) 
$ 


CHARCNT 


STYPEX 


# 


LF,2(SP) 


STYPEX 


A 
0 


PC)+ 


PC 


¢ 5 
SEQUENCE 45 


;;WAIT UNTIL PRINTER IS READY 


“LOAD CHAR TO BE TYPED INTO DATA REG. 
“$8 SEE IF KEYBOARD IS TALKING 

“@& BRANCH AROUND XON/XOFF ROUTINE IF NOT 
°@& PUSH CHARACTER ONTO STACK 

6 BIT CLEAR TOP BYTE AND PARITY BIT 


IT 
R IF IT ISN'T 
EE IF KEYBOARD IS TALKING 
R BACK IF NOT READY 
USH NEXT CHARACTER ON STACK 
ee we ara 6 TOP BYTE AND PARITY BIT 


ee BR IF NOT 
:;BRANCH IF 
+3NOT <CR> 


sEXIT 
:JBRANCH IF 
i+ ANC -— 
; COUNT 


voauqaun 


SEQ 0054 


_ 


CKKUABO 11/44 UBI MAP 


1030 


003204 


017646 


042703 


000000 


000002 
000001 


000006 
000005 


003431 
000006 


000012 


003430 
177770 


003427 


003427 
003431 
003426 


0 5 
MACRO M1113 O5-NOV-80 14:09 PAGE 42 SEQUENCE 46 
BINARY TO OCTAL (ASCII) AND TYPE 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

FERRARA RARAAAAEAERAAAAAEEHAEAAERERARAEAAAAAARKHAHAHAAKAHAHAAAE ERE 
Z*THIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 6-DIGIT 
S*OCTAL (ASCII) NUMBER AND TYPE IT 

i #$TYPOS=--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


NUM ,-(SP) 


;;NUMBER TO BE TYPED 
co FOR TYPEOUT 
33N=1 a $ FOR NUMBER OF DIGITS TO TYPE 


3;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


;*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
; #$TYPOS OR $TYPOC 


*CALL: 


MOV 
PON 


NUM, =-(SP) 


;;NUMBER TO BE TYPED 
3;CALL FOR TYPEOUT 


; #$TYPOC~=-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


:*CALL: 


-* 


sf 
$TYPOS: 


$TYPOC: 
STYPON: 


1$: 
2$: 


3$: 


NUM,-(SP) 
a(SP),-(SP) 


1(SP), SOF ILL 
(SP) +, SOMODE +1 


P) 
SohoDE 1 RG 


16 R4 

R4, SOMODE 
SOFILL,R4 
12(SP),R5 


R 

SOMODE 

7$ 
#177770,R5 


;;NUMBER TO BE TYPED 
3;CALL FOR TYPEOUT 
3;PICKUP THE MODE 

;;LOAD ZERO FILL SWITCH 
;;NUMBER OF DIGITS TO TYPE 
ADJUST RETURN ADDRESS 


7;SET THE ZERO FILL te 
ah FOR SIX(6) DIGIT 
33SET me ITERATION COUNT 


37 SAVE R5 
3:GET THE NUMBER OF DIGITS TO TYPE 


;;SUBTRACT IT FOR MAX. ALLOWED 
us IT FOR USE 
:3GET THE ZERO FILL SWITCH 


+ sROTATE MSB INTO ‘'C’’ 
::G0 DO MSB 
3;FORM THIS DIGIT 

« 


::GET LSB OF THIS | ee 
oh THIS DIGIT? 


R_IF NO 
3;GET RID OF JUNK 


SEQ 0055 


003340 


003354 


052703 


000060 
000040 


4$: 
5$: 


si; TEST FOR 0 

7;SUPPRESS THIS 0? 

:;BR IF YES 

::DON'T SUPPRESS ANYMORE 0°'S 
:;MAKE THIS DIGIT ASCII 
;;MAKE ASCII IF NOT ALREADY 


SEQ 0056 


CKKUABO 11/44 UB] MAP MACRO M1113 05-NOV-80 14:09 
BINARY TO OCTAL (ASCII) AND TYPE 


003360 110337 003424 MOVB 
003364 104400 003424 TYPE 
| 003370 105337 003426 7$: DECB 
003374 003347 BGT 
003376 002402 BLT 
00 005204 INC 
003402 000744 BR 
3404 012605 6$: MOV 
003406 012604 MOV 
003410 012603 MOV 
003412 016666 000002 000004 MOV 
003420 012616 MOV 
003422 000002 RTI 
003424 000 8$ BYTE 
003425 000 YT 
003426 000 SOCNT: .BYTE 
003427 000 SOFILL: .BYTE 
003430 000000 SOMODE: .WORD 


ae. 
PAGE 42-1 SEQUENCE 47 


ii SAVE FOR TYPING 
+360 uy by — DIGIT 


T BY 
:IBR IF MORE TO DO 
;;BR IF DONE 
7; INSURE LAST DIGIT ISN'T A BLANK 
;:;G0 DO THE LAST DIGIT 
;eRESTORE R5 
7 ;RESTORE R4 
;;RESTORE R3 
3;SET THE STACK FOR RETURNING 


3; ;RETURN 

::STORAGE FOR ASCII DIGIT 

:; TERMINATOR FOR TYPE ROUTINE 
;;O0CTAL DIGIT COUNTER 

3;ZERO FILL SWITCH 

;7NUMBER OF DIGITS TO TYPE 


SEQ 0057 


G 5 
CKKUABO 11/44 UBI MAP MACRO M1113 oo ~ pe 80 14:09 PAGE 43 SEQUENCE 48 
CONVERT BINARY TO DECIMAL AND TYPE ROUTI SEQ 0058 


1031 » SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
PRRRRERREKHRAHH EAE H TAKE AT He eee A eeH KAKA TeReeeKeeteneteeeeeere 
TATHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
[*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 


3s *CALL 
te MOV NUM, = (SP) :;PUT THE BINARY NUMBER ON THE STACK 
| + TYPDS ::G0 TO THE ROUTINE 
003432 $TYPDS: 
003432 010046 MOV RO,-(SP) :;PUSH RO ON STACK 
003434 010146 MOV R1.=(SP) PUSH R1 ON STACK 
003436 010246 MOV R2,-(SP) +;PUSH R2 ON STACK 
003440 010346 MOV R3,-(SP) PUSH R3 ON STACK 
003442 010546 MOV R5.=(SP) PUSH RS ON STACK 
003444 012746 020200 MOV 420200. -(SP)  ::SET BLANK SWITCH AND SIGN 
003450 016605 000020 MOV 20(SP).R5 ::GET THE INPUT NUMBER 
003454 100004 BPL ‘is ‘:@R IF INPUT IS POS. 
003456 005405 NEG R5 ::MPKE THE BINARY NUMBER POS. 
003460 112766 000055 000001 MOVB  #*=,1(SP) ::MAKE THE ASCII NUMBER NEG. 
003466 005000 1$: CLR RO >:ZERO THE CONSTANTS INDEX 
003470 012703 003714 MOV #SDBLK,R3 ::SETUP THE OUTPUT POINTER 
003474 112723 000040 MOVB =o #"—, (R3)¢ ;;SET THE FIRST CHARACTER TO A BLANK 
003500 005002 2$: CLR R2 :CLEAR THE BCD NUMBER 
003502 016001 003704 MOV $DTBL(RO),R1  ::GET THE CONSTANT 
003506 160105 3$: SUB R1,R5 >: FORM THIS BCD DIGIT 
003510 002402 BLT 4$ ::BR IF DONE 
003512 005202 INC R2 :: INCREASE THE BCD DIGIT BY 1 
003514 000774 BR 3$ 
003516 060105 4$: ADD R1,R5 :;ADD BACK THE CONSTANT 
003520 005702 TST R2 ::CHECK IF BCD DIGIT=0 
003522 001002 BNE 5$ ::FALL THROUGH IF 0 
003524 105716 TSTB. (SP?) : STILL DOING LEADING 0'S? 
003526 100407 BMI 7$ +:BR IF YES 
003530 106316 5$: ASLB = (SP) SIMSD? 
003522 103003 BCC 6$ ::BR IF NO 
003534 116663 000001 177777 MOVB 1(SP),-1(R3)  ::YES==SET THE SIGN 
003542 052702 000060 6S: BIS #'0,R2 ::MAKE THE BCD DIGIT ASCII 
003546 052702 000040 7$: BIS #' [R2 “!MAKE IT A SPACE IF NOT ALREADY A DIGIT 
003552 110223 MOVB _——R2, (R3)+ ::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
003554 005720 TST (RO) + +: JUST INCREMENT ING 
003556 020027 000010 CMP RO, #10 *:CHECK THE TABLE INDEX 
003562 002746 BLT 2$ ::G0 DO THE NEXT DIGIT 
003564 003002 BGT & ::G0 TO EXIT 
003566 010502 MOV R5,R2 ::GET THE LSD 
| 003570 000764 BR 6$ ::G0 CHANGE TO ASCII 
003572 105726 8S: TSTB. (SP) + ; WAS THE LSD THE FIRST NON-ZERO? 
003574 100003 BPL 9$ R IF NO 
003576 116663 177777 177776 MOVB  --1(SP),-2(R3) i EVES==SET THE SIGN FOR TYPING 


003604 105013 9$: CLRB ss (R3) >:SET THE TERMINATOR 





(SP)+,R5 
(SP)+ R3 
(SP)4+,R2 
(SP)+,R1 
(SP) +, RO 
SPSUPP 


:;POP STACK INTO RS 
:7POP STACK INTO.R3 
::POP STACK INTO R2 
3;POP STACK INTO R1 
3;POP STACK INTO RO 
:! SEE IF LEADING SPACES ARE TO BE SUPPRESSED 


SEQ 0059 


a 


CKKUABO 11/44 UB] MAP MACRO M1113 05-NOV-80 14:09 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


24 001420 BEQ 
003626 010046 MOV 
003639 010146 MOV 
003632 012700 003714 MOV 
003636 012701 003714 MOV 
003642 122720 000040 10$: CMPB 
003646 001775 BEQ 
003650 005300 DEC 
003652 112021 11$: MOVB 

3654 105710 TS1B 
003656 001375 BNE 
003660 105011 CLRB 

012601 MOV 

0G 012600 MOV 
003666 104400 003714 12$: TYPE 
003672 016666 000002 000004 MOV 
003700 012616 MOV 
003702 000002 RTI 
003704 023420 $DTBL: 10000. 
003706 001750 1000. 
003710 000144 100 


003712 000012 


10. 
003714 SDBLK: .BLKW 
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#SOBLK,RI1 
a’ ,(RO)+ 
108 


RO 
(RO)+,(R1)¢ 
(RO) 

SDBLK 
5(SP) ,4(SP) 


(SP)+*, (SP) 


4 


Se Se Se Se Fe Se Se Se Se Fe Se Be Se 
ee ee 


ee 
SEQUENCE 49 


BRANCH TO TYPE THE NUMBER IF NOT 
SAVE RO 


SAVE R1 

LOAD STARTING ADDRESS OF BYTES IN RO 
LOAD STARTING ADDRESS OF BYTES IN R1 
SEE IF A SPACE CHARACTER IS HERE 
BRANCH BACK FOR ANOTHER TRY IF SO 
POINT RO BACK TO FIRST NON-SPACE ASCII 


i MOVE THE NON-ZERO CHARACTER UP FRONT 


SEE IF TERMINATOR IS PRESENT 


i BRANCH TO MOVE ANOTHER CHARACTER IF NOT 


PLACE A TERMINATOR BYTE AFTER CHARACTERS 


i RESTORE R1 


RESTORE RO 


:NOW TYPE THE NUMBER 


;;ADJUST THE STACK 
: ;RETURN TO USER 


SEQ 0060 


CKKUABO 11/44 UB] MAP 


TRAP DECODER 


1032 


003724 


003742 


608 000002 


0 
4 003744 


J 35 
MACRO M1113 05-NOV-80 14:09 PAGE 44 SEQUENCE 50 


.SBITL TRAP DECODER 

PL eeeaeeararerenerereereerereeeeeeeenerenereteateeeetereraeerenes 
7*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
‘*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
#60 TO THAT ROUTINE. 

$TRAP: MOV 


RO,-(SP) 7; SAVE _RO 
MOV 2(SP),RO 3:GET TRAP ADDRESS 
TST =(RO) ;;BACKUP BY 2 
MOVB 3:GET RIGHT BYTE OF TRAP 


(RO) ,RO 
MOV STRPAD(RG).RO ;5;INDEX TO TABLE 
RO 3:60 TO ROUTINE 


SEQ 0061 


mana 


Kk 5 
CKKUABO 11/44 UB] MAP MACRO M1113 0S5-NOV-80 14:09 PAGE 45 SEQUENCE 51 


TRAP TABLE 


003744 002674 


003760 
1033 003762 004206 
Sie 003764 004334 


» SBTTL 


$TRPAD: 


TRAP TABLE 
;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF 
:*BY THE “'TRAP’’ INSTRUCTION. 


ROUTINE 


B > CAL 
TBITRESTORE 


3; CALL=TYPE 
3; CALL=TYPOC 
3; CALL=TYPOS 
3; CALL=TYPON 
3;CALL=TYPDS 
3; CALL=SAVREG 


l 
;;CALL=TBITR 


TRAP+0 (104400) 

TRAP+2(104402) 

TRAP +4 (104404) 

TRAP +6 (104406) 

TRAP+10(104410) 
TRAP#+12(104412) 
Lage rob vad ot 
TRAP+16(104416 


SEQ 0062 


THE ROUTINES CALLED 


TTY TYPEOUT ROUTINE 
TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 
SAVE RO-R5 ROUTINE 
4 Hye, RO-R5 ROUTINE 

WILL TURN OFF T BIT TRAPPING 


TRAP+90( 104420) THIS WILL RETURN THE T BIT TO PREVIO 


c—- 


3 
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R DOWN AND UP ROUTINES 
1036 


| 3766 012737 004114 
003774 012737 000340 
004002 010046 
| 004 010146 
04006 010246 
004010 010346 
012 010446 
004014 010546 


004016 010637 004120 
004022 012737 004034 


004034 013706 004120 
004040 005037 004120 
004044 005237 004120 


004 012737 003766 
004074 012737 000340 


004120 
1037 004122 012 015 
1038 


» SBTTL POWER DOWN AND UP ROUTINES 


,RRHRETHHREKHAHAEAeAAAAeeeeeeeeeKeeeKeeKAKeRKeAKeKAKeKAKeneReeee 


‘BOWER DOWN ROUTINE 
MOV 


000024 $PWRDN: 
000026 


000024 


BR -2 
eeaa UP ROUTINE 
$PWRUP: MOV 


#SILLUP ,a#PWRVEC 
Vv #340, a#PURVEC+2 
MOV RO, (SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV R3,-(SP) 
MOV R4,-(SP) 
MOV R3.< (SP) 
MOV SP, SSAVR6 
MOV PSPURUP. a#PWRVEC 


3;SET FOR FAST UP 

3;PRIO:7 

7;PUSH RO ON STACK 
H R1 ON STACK 
H R2 ON STACK 

7;PUSH R3 ON STACK 
H R4 ON STACK 
H RS ON STACK 


;SAVE SP 
:;SET UP VECTOR 
;;HANG UP 


3;GET SP 
;;WAIT LOOP FOR THE TTY 
:;WAIT FOR THE INC 

WORD 


33POP STACK INTO R5 
;;POP STACK INTO R4 
;;POP STACK INTO R3 
5 oP STACK INTO R2 
:POP STACK INTO R1 
POP STACK INTO RO 
SET ¥ THE POWER DOWN VECTOR 


:;REPORT THE POWER FAILURE 
;;POWER FAIL MESSAGE POINTER 
;;RESTART AT START 

7;RESTART ADDRESS 


+3 THE POWER UP SEQUENCE WAS STARTED 
3 Lr teak oe — DOWN WAS COMPLETE 


SSAVR6,SP 
CLR SSAVR6 
1$: INC SSAVR6 
BNE 1$ 
MOV (SP)+#,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,R0 
000024 MOV #SPUWRON, asPWRVEC’ ty 
000026 ey. #340, a#PWRVEC+2 ; :PRIO: 
SPWRMG: .WORD PWRMSG 
MOV (PC)+, (SP) 
SPWRAD: st START 
SILLUP: HALT 
BR .72 
SSAVR6: 0 
120 PWRMSG: 


RE 
rely <12><15>?POWER FAILURE, RESTARTING PROGRAM? 
VEN 


SEQ 0063 


aie 


| 
| 
| 
} 


CKKUABO 11/44 UBI MAP 


1039 


004166 2 
004170 016601 000002 


12703 177770 
00 


05 
004232 As 04 000002 


02 
004262 pee TOs 000060 
004270 


5 
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DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


SEQ 0064 
/SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
peeeteneereteeetereretereeetetetreeKeeeneeeeeeneerenenetanAeenes 
SSTHIS ROUTINE WILL CONVERT A 32=BIT UNSIGNED BINARY NUMBER TO AN 
: UNSIGNED OCTAL ASCIZ NUMBER. 
te MOV #PNTR,-(SP) :;POINTER TO LOW WORD OF BINARY NUMBER 
;* JSR PC ,a#$0B20 *:CALL THE ROUTINE 
t RETURN THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
$pB20: SAVREG +:SAVE ALL REGISTERS 
MOV 2(SP),R1 ::PICKUP THE POINTER TO LOW WORD 
MOV #SOCTVL+13.,R5 ::PMINTER TO DATA TABLE 
MOV #12. ,R4 :3D0 ELEVEN CHARACTERS 
MOV #°C7_R3 
MOV (R1)+,RO + TOWER WORD 
MOV (R1)+.R1 ::HIGH WORD 
CLR R2 :: TERMINATOR 
1$: MOVB = R2,, = (RS) ::PUT CHARACTER IN DATA TABLE 
MOV RO,R2 ::GET THIS DIGIT 
DEC R4 ::COUNT THIS CHARACTER 
BGT 35 ‘:BR IF NOT THE LAST DIGIT 
BEQ 2$ ::BR IF IT IS THE LAST DIGIT 
INC R5 ::ALL DIGITS DONE-ADJUST POINTER FOR FIRST 
MOV R5,2(SP) ‘:ASCIZ CHAR. & PUT IT ON THE STACK 
RESREG s:RESTORE ALL REGISTERS 
RTS PC ;;RETURN TO USER 
2$ ASR R3 ‘POSITION THE MASK FOR THE Last DIGIT 
3$ ROR R1 ::POSITION THE BINARY NUMBER FO 
ROR RO 7 THE NEXT OCTAL DIGIT 
ROR R1 
ROR RO 
ROR RI 
ROR RO 
BIC R3,R2 ::MASK OUT ALL JUNK 
ADD #°0,R2 [:MAKE THIS CHAR. ASCII 
BR 1$ +:G0 PUT IT IN THE DATA TABLE 
SOCTVL: .BLKB 14. = RESERVE DATA TABLE 


a IS a8 


N 5 
CKKUABO 11/44 UB] MAP MACRO M1113 O5-NOV-80 14:09 PAGE 48 SEQUENCE 54 
TURN OFF AND SAVE T-BIT SEQ 0065 


-SBTTL TURN OFF AND SAVE T-BIT 


z 


1042 PLUAAAeH AeA AAHeKeeeeAe Kee eee ee eeeKAeeeHeeeKeReteReeeneeereneee 

1043 PRR HAReHeReRAAeeeeeeeeeeeeeeeeeeeeeeeeeeeKeeeteeenenereneneeeeee 

1044 ;* **SUBROUTINES UNIQUE TO THIS PROGRAM*® 

1045 PLUAAAee Kee eeAAeeeee Hee TELA eee ee eeeteAKeKeReteReteeeKeeeteeetere 

1046 PpeeeeeeeeeereneteeeeeeeeeeeeeteeeKAteetereteneeeteneeeeeeeeeere 

1047 

1048 PPM Reeeeeeeeeeeeteeeeeeeeeeeedeeeeeeedeteneteneeneeeeneeeeeeere 

1049 7* 

1050 3° THIS SUBROUTINE IS REACHED BY THE TRAP CALL ‘TBITO’, IT IS 

1051 3* USED TO TURN OFF THE T-BIT IF IT IS ON. THE PROCESSOR STATUS 

1052 st IS SAVED IN ‘‘OLDPSW'' SO THAT THE T-BIT CAN BE RESTORED TO ITS 

My 3 i* PREVIOUS STATUS WHEN CONDITIONS WARRANT. 
** 

3 jasenenorwenaneninanseennteneprenconenacsnnsenbescssenensnnoess 

1056 000020 TBIT=BIT4 ;T-BIT 1S BITO4 IN PROC; STATUS 

1057 004306 032766 000020 000002 TBITOF: BIT #TBIT,2(KSP) 31S THE T-BIT ON? 

1058 004314 001406 BEQ 1$ BRANCH TO EXIT IF IT IS NOT ON 

1059 004316 016637 000002 001332 MOV 2(KSP) ,OLDPSwW ;SAVE OLD PSW FOR RESTORING T BIT 

; 004324 042766 000020 900002 BIC #TBIT, 3(KSP) CLEAR 


T BIT 
1 004332 000006 1$: RTT ;RETURN TO PROGRAM 


SS 
o 


> 


on 


rs = _—————— ES ee — - — 


8 6 
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RESTORE T-BIT TO ITS PREVIOUS CONDITION SEQ 0066 


SBTTL RESTORE T-BIT TO ITS PREVIOUS CONDITION 


g 


1063 PPTITITITIITITITITITIITISTIITITITT ITT TTT ITT E TT TTT 
1064 ;¢ 
1065 ;* THIS SUBROUTINE CAN BE REACHED BY THE TRAP CALL ‘TBITR', IT IS 
1066 he USED TO RESTORE be T=-BIT AFTER A PARTICULAR TEST THAT CANNOT 
1067 ;¢ BE RUN WITH THE T-BIT ON. IT USES THE PROCESSOR STATUS STORED 
1068 ;* IN ‘‘OLDPSW"’ BY 4 REPLACES THE PS ON THE STACK WITH IT 
bs 24 7 AND DOES AN ‘RTT’ 

Z 
1071 Fa Codeivabdikaaobiedlagubeneeseeaeencenndhadmantecaaxeasiatl 
1072 004334 013766 001332 000002 TBITRE: MOV OLDPSW,2(KSP)  ;PUT OLD PSW ON STACK 
1073 004342 042737 000020 001332 BIC #TBIT,OLDPSW 4S go ie IN ‘‘OLDPSw"’ 
107 T IT WON'T BE TURNED ON BY ACCIDENT 


4 ;$0 T 
1075 004350 000006 RTT ;RETURN TO PROGRAM AND MINAIBIT T-BIT TRAP AFTER THIS INSTRUCTION 
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170200 


000040 
020000 
170400 


172516 


SBTTL SUBROUTINE TO CLEAR ALL OF THE MAP REGISTERS 


SF RRARARARAAAREREEEAEAETEEAEE AT AEAEAAARARAERAAHRAEHREAAHAAHAAEEAEEEE 


o 

* THIS SUBROUTINE CLEARS ALL OF THE MAP REGISTERS IF MAPPING IS 
. DISABLED BY LOADING THE ADDRESS OF MAPLOO INTO R3 AND THEN 

* eo THE asbeinn't POINTED TO BY R3 UNTIL R3 POINTS ABOVE 
* MAPH37. If MAPPING IS ENABLED, ALL REGISTERS EXCEPT MAPL1 

* 1S CLEARED. ntMe LOWER WORD OF MAPL1 RECEIVES 20000. THIS IS 
* SO APT CAN PROPERLY MONITOR THE PROGRESS OF THE DIAGNOSTIC. 

* 
ti 


SRE ERERERAEAEERAAAEAAAAAAAARAARAAARARARARAARAARETAARATKAREETE 


RMAP: MOV #MAPLO,R3 ;PUT FIRST MAP ADDR IN R3 


CLR (R3)+ ZCLEAR MAPLO 

CLR (R3)+ CLEAR MAPLO+2 

BIT #B1TS,MMR3 ;SEE IF MAPPING IS ENABLED 

BEQ 1$ ; BRANCH TO CLEAR ALL IF NOT ENABLED 

MOV #20000, (R3)+ LOAD 20000 INTO MAPL1 FOR POSSIBLE APT USE 
1$: CLR (R3)+ CLEAR MAP REGISTERS 

CMP #MAPH37+2,R3 ;SEE IF LAST ADDR+2 IS _IN R3 

BNE 1$ ;BRANCH IF NOT DONE YET 

RTS PC :RETURN TO MAIN PROGRAM 


SEQ 0067 
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004410 


005227 
177777 


000000 


004424 012637 


000006 
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020074 


001326 
001330 
007774 
001314 
001312 


177766 
001314 
001314 


177777 


007774 
001302 
000020 
172356 


005250 
177777 


177777 
001330 
001326 


001314 
177766 
001312 


004412 


001312 


004412 
004412 
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SEQUENCE 57 


 SBTTL SUBROUTINE TO LOG AND REPORT TIMEOUTS OF MAP REGISTERS 


SRERAAEHHHAEAAAAEETEREHEEAERAEEAEHAAAAAAAAAREAEAAHAHAKAAAAAAAETEET 


THIS SUBROUTINE IS USED TO LOG AND REPORT THE FACT THAT A 
REFERENCE TO A MAPPING Se TIMED OUT ON THE UNIBUS. IT 
KEEPS A ‘'LOGICAL AND'’ AND A 

TIMES OUT. 


10$: 


25$: 


3$: 


4$: 


. WORD 
B 


"LOGICAL OR'’ OF EACH ADDRESS THAT 


RERARARAAAAAAAARATEEEAEA AAA AAAAAAAAAARAAATAAEEAERAAAAEAAEEAE 


+ iMEOUT: INC 
FLAG: 


SEQ 0068 


(PC)+ s INCREMENT ONE TIME GATE 

-1 [ONE TIME ENTANCE FLAG 

10$ ;BRANCH IF FLAG I$ NOW ZERO 

SMSGTY INDICATE TO APT A FATAL ERROR OCCURED 

:1 HAVE ENTERED ils ROUTINE BEFORE I FINISHED REPORTING THE FIRST ERROR. 
:THE SECOND ENTRY ADDRESS IS ON THE STACK AND THE 
‘FIRST ERROR CONDITION IS PROBABLY STILL LOCKED UP. 

(KSP)+,OLDPC § :SAVE RETURN ADDRESS 

(KSP)+,OLDPS | ;SAVE OLD PSW ! 

CPUTYP :SEE IF THIS IS AN 11/44 , 

1$ ‘BRANCH TO CONTINUE IF IT IS 

PCPUER ‘INCREMENT PCPUER TO SHOW A TIMEOUT OCCURED 

CPUEKP [SEE IF THERE WAS AN EXPECTED ERR 

3$ :GO REPORT ERROR IF NONE EXPEC cieD. 

4$ ‘BRANCH TO EXIT IF TIMEOUT WAS EXPECTED 

CPUERR,PCPUER ;:SAVE CPU ERROR REGISTER 

PCPUER.CPUERR :CLEAR CPU ERROR REGISTER 

PCPUER.CPUEXP :SEE IF EXPECTED CONDITION CAME UP. 

2$ ‘BRANCH IF IT WAS A TIMEOUT 

#-1, TOFLAG SRESET ONE TIME GATE 

+1 :NOT THE CORRECT CPU TRAP THROUGH 4 

4$ ‘BRANCH TO EXIT 

CPUTYP ‘1S THIS AN 11/24? 

25$ ‘BRANCH IF NOT 

ERRCNT :COUNT THIS AS A TIMEOUT 

4$ 60 TO EXIT 

#TIMOUT,CPUEXP :SEE IF A TIMEOUT WAS EXPECTED 

4$ ‘BRANCH TO EXIT THIS ROUTINE IF IT WAS 

KIPAR7, 5 (SP) ‘PUT PAR ON STACK FOR ADREXT SUBROUTINE USE 

RO,-(SP) ‘PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE USE 

PC, ADREXT [GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 

#-1, TOFLAG “RESET ONE TIME GATE 

+204 [THE FOLLOWING REGISTERS TIMED OUT WHEN READ 

#-1, TOFLAG SRESET ONE TIME GATE 

OLDPS,-(KSP) “RESTORE OLD PSW 

OLDPC,-(KSP) =PUSH RETURN ADDRESS BACK ON THE STACK 


RETURN TO THE TEST 
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(CPU TRAP HANDLER ROUTINES 


020014 


001326 


001312 
007774 
001314 
177777 


177777 


001302 
177777 
001314 
001330 
001326 


001312 
004604 


004604 


004604 
177766 


-SBTTL CPU TRAP HANDLER ROUTINES 
POTITTITITITIVITISTISTTIT TTT T ITT T TIT T ttt titi i iii t i 
:* **TRAP HANDLING ROUTINES** 


HERE RAAAAAAIRHERAAAERARAEARAAAAAEARARAAAAARAAAAAAHAEARAAAAAKATHTAKRAEAAE 


SERRATE EAAEAAAAAAAKAARAAAARAAARARAAAARERAAAAAAAAREE 


THIS SUBROUTINE WILL HANDLE ALL CPU TRAPS AND ABORTS, THROUGH 
“ERRVEC’’ (000004). IF THIS SUBROUTINE IS ENTERED BY A SECOND 
TRAP BEFORE THE FIRST HAS BEEN PROCESSED A HALT IS EXECUTED. 
IF THE WORD ‘CPUEXP’ IS ZERO, NO TRAP WAS EXPECTED AND AN 
UNEXPECTED ERROR MESSAGE IS GIVEN. IF THE WORD ‘CPUEXP’ IS 


1S LOADED WITH THE ERROR REGISTER IF A TRAP VECTORS HERE 


PITTI T IIT IT IIIS IIIT T TSEC iii ii iitiiiitiiiitiiiiiiiiiiiiii 
MAKE FLAG ZERO IF FIRST TIME 
;NEGATIVE ONE FOR A FLAG 

108 ;BRANCH IF FIRST TIME IN 


INC SMSGTY 
HALT HAVE ENTERED THIS ROUTINE BEFORE 
:1 FINISHED REPORTING THE FIRST é ROR. 


#1 
* 
& 
* 
* 
* 
® 
- 'CPUEXP' TO SEE IF THE PROPER CONDITION OCCURRED. 
® 
* 
ft 
tb 
Pp 


NOT ZERO THEN THE CPU ERROR REGISTER ‘CPUERR' IS sO CmaEAY Can 
BE USED AS'A FLAG TO INDICATE THAT A TRAP HAS OCCURRED SINCE IT 


+ INDICATE TO APT A FATAL ERROR OCCURED 
THE SECOND ENTRY ADDRESS IS ON 


iTwe ns AND THE FIRST ERROR CONDITION IS PROBABLY STILL LOCKED UP. 


OV (KSP)+,OLDPC ;SAVE RETURN ADDRESS IN CASE OF LOOP 
MOV (KSP)+,OLDPS :SAVE OLD PSW IN CASE OF LOOP 
MOV CPUERR,PCPUER  :SAVE CPU_ERROR REGISTER 
MOV OLDPC ,BADPC :SAVE PC+2 AT TIME OF ABORT 
TST CPUE XP SEE IF ANY CONDITION WAS EXPECTED 
BEQ 1$ ;BRANCH IF NO TRAP WAS EXPECTED 
TSTB CPUTYP ;SEE IF THIS WAS AN 11/44 
BNE 2$ :BRANCH TO CONTINUE IF AN 11/24 
CMP PCPUER,CPUEXP ;SEE IF EXPECTED ERROR see 
BEQ 3$ ;BRANCH IF ERROR CODES MATCH 
MOV #-1,CPFLAG s;MAKE FLAG NEGATIVE ONE FOR NEXT TIME 
ERROR +1 ;NOT THE CORRECT CPU TRAP THROUGH 4 
BR $ ;SKIP NEXT INSTRUCTION 
1$: MOV #-1,CPFLA ;MAKE FLAG NEGATIVE ONE FOR — TIME 
ERROR +2 UNEXPECTED CPU TRAP THROUGH 4 
BR $ SKIP NEXT INSTRUCTION 
2$: INC ERRCNT : INCREMENT ERRCNT TO SHOW AN ERROR FOR 11/24 
3$: MOV #-1,CPFLAG :MAKE FLAG NEGATIVE ONE FOR NEXT TIME 
MOV PCPUER,CPUERR ;CLEAR CPU ERROR REGISTER 
MOV OLDPS,-(KSP) PUSH OLD PSW BACK ON STACK 
MOV OLDPC ,-(KSP) ;PUSH RETURN ADDRESS BACK ON STACK 
RTT ;RETURN FROM INTERRUPT OR ABORT 


SEQ 0069 
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MEMORY MANAGEMENT TRAPS AND ABORTS HANDLER ROUTINE SEQ 0070 
1190 .SBTTL MEMORY MANAGEMENT TRAPS AND ABORTS HANDLER ROUTINE 
1191 PLAAeAeeeeeeeee eee eeeeeteeetenteereeeeeteneetereneeeteteetereeee 
| 1192 3* 
1193 it THIS ROUTINE WILL HANDLE ALL SPURIOUS MEMORY MANAGEMENT TRAPS 
1194 7* AND ABORTS. IT WILL REPORT THE CONDITION OF ALL THE MEMORY 
1195 3 MAMAGEMENT STATUS REGISTERS, AND THEN RETURN TO THE TEST AND 
) LB ba ;* TRY TO CONTINUE RUNNING. 
j ‘@ 
| 1198 +; eeeeeeeeeeeneeeteeeeeeeteeeetereeneeeeeeeeeeteeeeeertenereeeeee 
1199 004744 005227 MMTRAP: INC (PC)+ ;MAKE FLAG ZERO IF FIRST TIME 
1200 004746 177777 MMFLAG: .WORD <1 ;FLAG SHOULD BE NEG ONE 
1201 004750 001403 BEQ 10$ “BRANCH IF FIRST TIME INTO ROUTINE 
1202 004752 005237 020014 INC SMSGTY s INDICATE TO APT A FATAL ERROR OCCURED 
1203 004756 000000 HALT 31 HAVE ENTERED THIS ROUTINE BEFORE I FINISHED REPORTING THE 
1204 sFIRST ERROR. THE SECOND ENTRY ADDRESS IS ON THE STACK AND THE FIRST ERROR 
1205 ;CONDITION IS PROBABLY STILL LOCKED UP . 
1206 004760 011637 001324 i0$: MOV (KSP) ,BADPC ;SAVE PC AT TIME OF ABORT OR TRAP 
1207 004764 012637 001326 MOV (KSP)+,OLDPC ;SAVE RETURN ADDRESS IN CASE OF LOOP 
1208 004770 012637 001330 MOV (KSP)+,OLDPS : SAVE OLD PSW IN CASE OF LOOP 
1209 0046774 013737 177572 001334 MOV MMRO,PMMRO ;SAVE STATUS REGISTER 
1210 005002 013737 177574 001336 MOV MMR1,PMMR1 ;SAVE AUTO INC/DEC REGISTER 
1211 005010 013737 177576 001340 MOV MMR2 ,PMMR2 ;SAVE VIRTUAL ADDRESS REGISTER 
1212 005016 104003 ERROR +3 ;UNEXPECTED M.M. mrs rt OR TRAP 
1213 005020 042737 177776 177572 «1%: BIC #177776, "MRO ;CLEAR ALL BITS EXCEPT 0 
1214 005026 012737 177777 004746 MOV #-1,MMFLAG ;RESTORE A NEGATIVE . TO FLAG | 
1215 005034 013746 001330 MOV OLDPS ,-(KSP) ;PUSH OLD PSW ONTO STA 
1216 005040 013746 001326 MOV OLDPC,-(KSP) ;PUSH RETURN ADDRESS on STACK 
1217 005044 000006 RTT RETURN TO MAIN PROGRAM 
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ST A LOCATION FOR WRITEABILITY 


000200 
001172 
020034 
006154 
020102 


020102 
000001 


000001 
006154 
037776 
001314 
037776 
001314 


001172 
000002 


172350 


006154 


006154 


SEQ 0071 


.SBTTL SUBROUTINE TO TEST A LOCATION FOR WRITEABILITY 
PUTITTITIITITITITIITISIT ISLET ETT ETT ee 
*@ 
;* THIS SUBROUTINE CLEARS A TEST LOCATION, LOADS THE LOCATION USING 
:e THE MAP REGISTER, AND DETERMINES IF THE LOCATION WAS LOADED. 
:* IT WAS, RETURN [S$ NORMAL TO THE TEST. IF THE PC ON THE 
;* STACK [S$ UPDATED BY 2 AND THEN A RETURN IS NEXECUTED. 
** 
+ eeeneeeeeeeeeererenererrereerteereeeeeeenereteeeeteeenerettenes 
TSTLOC: ADD #200, KIPARG :MAP TO NEXT REGISTER 

INC $TmPd : INCREMENT REGISTER COUNTER 

TSTB 3s SENN TEST APT STATUS 

FEQ NEXT :BRANCH IF NOT UNDER A 

ST FLOATR :SEE IF BIT 15 OF FLOATR 1S SET 

3PL 1$ :BRANCH IF STILL PLUS 

CMP #so0ut, RS >SEE IF RS IS SOINTING TO UPPER DDW 

BEO NEXT ‘BRANCH IF SO = ALL DONE 

on #$DDW1,R5 ;MOVE ADDRESS OF Db TO RS AND 

MOV #BITO,FLOATR “RESET BIT 0 IN FLOAT 

BR NEXT ‘BRANCH OVER ASL 
1$: INC (PC)+ “INCREMENT NEXT LOCATION FOR FIRST TIME THROUGH CHECK 
FTTHRU: .WORD 1 :FIRST TIME ENTRANCE FLAG 

BNE $ ‘BRANCH IF NOT FIRST TIME 

MOV #BITO,FLOATR | :MOVE BIT 0 TO LOCATION FLOATR 

BR NEXT ‘BRANCH OVER THE ASL 
1$: ASL FLOATR “ROTATE THE TEST BIT TO THE LEFT 
NEXT: CLR 37776 “CLEAR TEST LOCATION 

CLR PCPUER “CLEAR ERROR LOCATION 

MOV R2, (RO) ‘TRY TO LOAD TEST CELL THROUGH MAP 

CMP 37776,R2 =SEE IF TEST LOCATION WAS LOADED 

BEQ ‘BRANCH IF IT WAS LOADED 

TST PCPUER [SEE If A TIMEOUT OCCURED 

BEQ 1$ ‘BRANCH OVER SPECIAL STACK PUSH IF NOT 

MOV $TMPO,-(R3) “PUSH REGISTER NUMBER THAT TIMED OUT ON SPECIAL STACK 
1$: ADD #2, (SP) ‘CORRECT PC RETURN FOR LOAD FAILURE INDICATION 
2$: RTS PC SRETURN FROM THIS SUBROUTINE 
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1254 -SBTTL SUBROUTINE TO LOAD DATAOR AND DATAND 


1255 Pe eeeeaeerkenedeeereeeeetetetereteeeeneeeteneneeeeeatreeneetene 
1256 7* 
1257 3 rss SUBROUTINE ASSUMES THE DATA TO BE ANDED AND ORED HAS BEEN Put 
1258 ;* ON THE STACK BEFORE THIS SUBROUTINE WAS CALLED. IT BIT SETS THE 
1259 ;* DATA ONTO DATAOR, COMPLEMENTS THE DATA AND BIT CLEARS IT ONTO 
‘se 3* DATAND. 
-* 
1262 :; (AR RRRRSBRASASELALELEREREREREAEER ERE RRR RRR RRR R ERE RR RRR RRR RAR AES SC 
1263 005200 056637 000002 001244 DATEXT: BIS 2(SP),DATAOR SET THE "OR" PATTERN TO DATAOR 
1264 005206 005166 000002 COM 2(SP) COMPLIMENT THE DATA 
1265 005212 046637 000002 001240 BIC 2(SP) ,DATAND :CLEAR THE ‘AND’ PATTERN TO DATAND 
1266 005220 012616 MOV (SP)+, (SP) CLEAN THE STACK FOR THE RETURN 
1267 005222 000207 RTS PC sRETURN 


SEQ 0072 
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000002 001252 
000 
000002 001250 


» SBTTL SUBROUTINE TO LOAD PATAOR AND PATAND 


MmARBEBERBLELELESLLSESLELALE SEAS RRR SEERA SSR RSE ARRAS RARER RRR SARS SS 


oé 

* THIS SUBROUTINE ASSUMES THE DATA TO BE ANDED AND ORED HAS BEEN PUT 
e ON THE STACK BEFORE THIS SUBROUTINE WAS CALLED. IT BIT SETS THE 

* DATA ONTO PATTOR, COMPLEMENTS THE DATA AND BIT CLEARS IT ONTO 

* PATAND. 

* 

+ RRCRRRRREREHEHTE RATE RE TERE eH eee AeA eAeeKeTeKATeLeeeretere 

A 


TEXT: Pan Hae PATTOR ;SET THE "OR' PATTERN TO PATTOR 


C (SP) [COMPLIMENT THE PATTERN 

BIC 2(SP),PATAND ;CLEAR THE “*AND* PATTERN TG PATAND 
MOV (SP)+, (SP) ;CLEAN UP STACK FOR RETURN 

RTS PC ; RETURN 


SEQ 0073 
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SUBROUTINE TO TAKE PAR AND LOAD 2 WORDS EACH OF ADDROR & ADRAN SEQ 0074 
1282 -SBTTL SUBROUTINE TO TAKE PAR AND LOAD 2 WORDS EACH OF ADDROR & ADRAND 
1283 ppeteeeeereeeeeeeeeerereeerrererteteeneteeeteeerereeeeetereeeeee 
1284 :* 
1285 se THIS SUBROUTINE wy THE CONTENTS OF THE PAR, AND THE VIRTUAL 
1286 ;* ADDRESS HAVE BEEN PUT ON THE STACK. IT TAKES THE PAR, SHIFTS IT 
1287 of TO EXPOSE THE UPPER ADDRESS BITS, BIT SETS THEM TO ADDROR+2, COM- 
1288 ;@ PLIMENTS THE CONTENTS AND BIT CLEARS ADRAND+2. AFTER RELOADING 
1289 3* THE PAR IN RS, IT SHIFTS TO GET THE LOWER 16 BIT EQUIVALENT AND 
1290 :* ADDS THE VIRTUAL ADDRESS TO CREATE THE PHYSICAL LOWER 16 BITS. 
1291 3° THEN IT BIT SETS THEM TO ADDROR, COMPLIMENTS THE CONTENTS AND 
1292 3¢ BIT CLEARS ADRAND. ANOTHER COMPLIMENT BRINGS THE STATE BACK TO 
1293 3@ ITS ORIGINAL STATE. THIS SUBROUTINE LEAVES WITH THE LOWER 16 
1294 3* BITS AND THE UPPER 6 BITS ON THE STACK, AND ARE TO BE REMOVED IN 
if 3-44 ;* THAT ORDER, AND MUST BE REMOVED AFTER RETURN. 
** 
1297 i Peeeeeneeeeeeeeeeeeeeeeetereeeeteteeeeneetetteeeeteeeeeeeeeeeee 
1298 005250 010546 ADREXT: MOV R5,-(SP) SAVE RS 
1299 005252 016605 000006 MOV 6(SP),R5 MOVE PAR CONTENTS TO RS FOR SHIFTING 
1300 005256 072527 177766 ASH #-10.,R5 ;SHIFT RS TO THE RIGHT 10 PLACES 
1301 005262 042705 177700 BIC #177760,R5 [CLEAR BITS 15 TO 6 
1302 005266 010537 001204 MOV R5, sTmPs MOVE OBTAINED UPPER 6 BITS TO STMPS FOR FUTURE TRANSFER 
1303 005272 050537 001236 BIS R5,ADDROR+2 7SET THE ‘OR' PATTERN OF UPPER 6 BITS TO ADDROR+2 
1304 0052 005105 COM R5 ;COMPLIMENT R5 
1305 005300 040537 001232 BIC RS ,ADRAND+2 CLEAR THE ‘AND’ PATTERN OF UPPER 6 BITS TO ADRAND+2 
1306 0053 016605 000006 MOV 6(SP),R5 [PUT PAR CONTENTS BACK IN RS 
1307 005310 013766 001204 000006 MOV STMPS ,6(SP) MOVE UPPER 6 BITS OF PHYSICAL ADDRESS o" STACK 
1308 005316 042705 176000 BIC #176000,R5 ;STRIP OFF UPPER 6 BITS OF PAR CONTENTS 
1309 005322 072527 000006 ASH #6,R5 = SHIFT REMAINING BITS 6 PLACES TO THE LEF 
1310 005326 27 160000 000004 BIC #160000,4(SP) * STRIP OFF PAR PAGE BITS FROM ADDRESS fo FORM OFFSET 
1311 005334 060566 000004 ADD RS5,4(SP) FORM LOWER 16 BITS OF ADDRESS 
1312 005340 012605 MOV (SP)+,R5 RESTOR E RS 
1313 605342 056637 000002 001234 BIS 2(SP) ,ADDRUR :SET THE ‘OR’ PATTERN TO ADDROR 
1314 005350 5166 000002 COM 2(SP) [COMPLIMENT THE ADDRESS 
1315 005354 046637 000002 001230 BIC 2(SP) ,ADRAND CLEAR THE ‘AND’ PATTERN TO ADRAND 
1316 005%62 005166 000002 COM 2(SP) ;RETURN ADDRESS TO iTS ORIGINAL STATE 
1317 005366 012605 MOV (SP)+,R5 ;SAVE RETURN ADDRESS 
1318 005370 012637 006144 MOV (SP)+,EADRES ;POP STACK INTO EADRES 
1319 005374 012637 006146 MOV (SP)+,EADRES+2 ;POP STACK INTO EADRES+#2 
1320 005400 010516 MOV R5, (SP) ;RESTORE RETURN ADDRESS 
1321 005402 000207 RTS PC ;RETURN 
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SE2 0075 


1322 .SBTTL SUBROUTINE TESTING RELOCATION ADDER 

1323 PPRTTTITIITTITIITITTITTITLITIi Titi itiiti iii itt i 

1324 ;* THE FOLLOWING SUBROUTINE IS USED IN TESTS 13 AND 16, AND USES THE DATA 
1325 Pid BANK FOLLOWING TO EXECUTE THE LOOPS IN THE TEST. RS IS THE SPECIAL 
1326 el "STACK' POINTER, INITIALIZED AT THE BEGINING TO THE R3STAK DATA BANK. 
1327 5e THE STACK POINTER a -hprnoaes 3 WORDS FOR EACH PASS. CALL THIS SUB- 
1328 ;* “1 aes im * NNER 

1329 ;* CLR STM ; CLEAR ro? - USED IN ERROR RETURN 

1330 3*18: JSR PC MAPAD 60 DO THE TEST 

1331 3° ERROR *ERRORNUMBER : RETURN IS HERE FOR ERROR 

1332 ;* BR 1$ ANCH BACK TO CONTINUE TEST 

1333  sansenueaeensesecseensesseserenereaseetteetenceateaeseeceeees 

1334 005404 005737 001202 MAPADD: TST STMP4 ;SEE IF THIS ENTRY WAS AN ERROR 

1335 005410 001040 BNE 3$ 60 CONTINUE TEST 

1336 005412 011646 MOV (SP) ,-(SP) MOVE RETURN UP ONE NOTCH 

1337 005414 062766 000004 000002 ADD 44 2(SP) sCREATE ADDRESS ON STACK FOR FINAL RETURN 
1338 005422 012703 005530 MOV #RSSTAK,R3 ;SET THE SPECIAL STACK POINTER 

1339 005426 012704 000013 MOV #13,R4 :SET THE LOOP COUNTER 

1340 005432 012737 005460 001106 MOV #26 SLPERR ;SET LOOP ON ERROR POINTER TO 2$ 

1341 005440 005077 173634 CLR @LREGU [CLEAR UPPER BITS OF MAPPING REG 

1342 005444 012377 173626 1$ MOV (R3)¢, @LREGL LOAD LOWER BITS OF MAPPING REG 

1343 005450 013737 001254 172354 MOV LOWEST, KIPAR6 ;LOAD PAR6 WITH ADDR OF poe be MAP REG 

1344 005456 012300 OV (R3)+ »RO SELECT PAR6, OFFSET IS AUGEND 

1345 5460 011001 2$: OV (RO), R1 READ LOCATION DEFINED BY 4TH WORD IN TABLE 
-1346 005462 012302 MOV (R3)+,R2 3 ;MOVE ANTICIPATED DATA TO R2 

1347 005464 020102 CMP R1,R2 ;SEE IF THE MAP'S FETCH WAS CORRECT 

1348 005466 001415 BEQ 4$ “BRANCH IF FETCHED DATA MATCHES ADDRESS 

1349 005470 162703 000002 SUB #2,R3 sANTICIPATE ERROR LOOPING BY UNDOING AUTOINC 
1350 005474 010237 006144 MOV R2,EADRES ‘PUT ADDRESS IN EADRES FOR ERROR CALL 

1351 005500 011646 MOV (SP) ,-(SP) :PUT AN EXTRA RETURN ON FOR POSSIBLE ERROR LOOP ING 
1352 005502 012737 000001 001202 MOV #1, STMPS >SET FLAG SHOWING ERROR CALL WAS CALLED 

1353 005510 000207 RTS PC SEXIT TO ERROR CALL AT TEST 

1554 005512 062703 000002 3$: ADD #2,R3 sRESTORE AUTOINC, ERROR LOOPING NOT DONE 
1355 005516 062706 000002 ADD #2,SP ;CLEAN EXTRA RETURN OFF STACK = LOOPING NOT DONE 
1356 00552 077430 4$: $0B R4,1$ ;SUBTRACT 1 FROM R4 AND BRANCH IF NOT 0 

1357 005524 005726 TST + as EXPOSE NEXT TEST RETURN ADDRESS 

1358 005526 000207 RTS ZEX IT TO NEXT TEST 

1359 3;DATA om Cue R3STAK DATA. BANK BELOW IS ARRANGED IN THE FOLLOWING ORDER: 
1360 :>>>NOTE<<<: THE "OFFSET COLUMN IS NOT IN THE STACK DUE TO THE DELIMITER 
1361 ; (;) BETWEEN bi oe ADDRESS AND THE OFFSET VALUES 
1362 F + VRTUAL: PHYSCL 

Ht > +4 ; BASE ‘ADDRES: eects ‘OFFSET R4 VALUE 

1365 005530 060000 140000 060000 R3STAK: .WORD 060000,140000,060000; 000000 R4=13 

1366 005536 052524 145252 057776 . WORD 052524,145252, 057776:005252 R4=12 

1367 005544 5252 152524 057776 -WORD 045252,152524,057776;012524 R4=11 

1368 005552 050420 150420 061040 -WORD 050420,150420,061040;010420 R4=10 

1369 005560 054630 144210 061040 - WORD 054630, 144210,061040:004210 R4=7 

1370 005566 044210 154630 061040 WORD 044210,154630,061040;014630 R4=6 

1371 005574 056734 142104 061040 -WORD 056734,142104,061040; 002104 R4=5 

1372 005602 042104 156734 061040 -WORD 042104,156734,061040;016734 R4=4 

1373 005610 057776 141042 061040 WORD 057776,141042,061040;001042 R4=3 

1374 005616 041042 157776 061040 WORD 041042,157776,061040;017776 R4=2 

1375 005624 057776 140002 060000 WORD 057776,140002,060000;000002 R4=1 
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CKKUABO 11/44 UBI_MAP 
‘SUBROUTINE TO TEST CARRY PROP OF MAP'S RELOC ADDER SEQ 0076 
1376 -SBTTL SUBROUTINE TO TEST CARRY PROP OF MAPS RELOC ADDER 
1377 P ;;eeeteraereerarererereererereterenetetenetenteretanatentarerteeree 
| 4378 :* THIS SUBROUTINE IS USED BY TESTS 14 AND 17. CODE CALLING THIS SUB- 
9379 te ROUTINE IS AS FOLLOWS: 
1380 Pil CLR STMP4 ; CLEAR dee - USED IN ERROR RETURN 
1381 “*LAB: JSR PC, TCPMRA :G0 DO THE TEST 
1382 ;* ERROR if eft RETURN Is HERE IF AN ERROR 
1383 i BR ‘BRANCH BACK TO CONTINUE TEST 
1384 H ; OE TEL, BIEL IT rie te ee Fs, Both coe Be ROS 
1385 005632 005737 091202 TCPMRA: TST STMP4 ;TEST ERROR FLAG TO SEE IF THIS ENTRY IS FROM ERROR 
1386 005636 001072 - BNE 4$ ‘BRANCH TO CONTINUE TEST IF SO 
1387 005640 011646 MOV (SP) ,-(SP) :MOVE RETURN ADDRESS UP ONE NOTCH 
1388 605642 062766 000004 000002 ADD #4 ,2(SP) [CREATE CORRECT FINAL RETURN ADDRESS 
1389 005650 012737 177777 006010 MOV a1 38¢2 ‘INITIALIZE FLAG AS NEGATIVE ONE 
1390 005656 005077 173416 CLR [CLEAR UPPER 6 BITS OF MAP REG 
1391 5662 012777 020000 173406 MOV #20000 @LREGL ;LOAD 4K BASE INTO MAP REGISTER 
1392 005670 012701 100100 MOV #100100,R1 ‘LOAD BITS TO SELECT PAR 4, OFFSE1 100 
1393 005674 012700 150000 MOV #150000,R0 “LOAD BITS TO SELECT PAR 6, OFFSET 2k 
1394 005700 012737 000277 172350 MOV #277 ,KIPARG “START WITH PHYSICAL 6K 
1395 005706 013737 001254 1723554 MOV LOWEST ,KIPAR6 LOAD PAR 6 WITH MAP REG‘S ADDR 
1394 005714 012737 005754 001106 MOV #2$, SLPERR :SET LOOP ON ERROR POINTER TO 10$ 
1397 005722 012737 000020 001312 1$: MOV #20, CPUEXP SEXPECTING A UNIBUS TIME OUT DURING TEST 
1398 005730 005037 001314 CLR PCPUER ‘CLEAR TIME OUT FLAG 
1399 005734 013710 001350 MOV DATA, (RO) ‘THIS LOAD WILL TIME OUT WHEN YOU HAVE REACHED THE TOP 
1400 :OF MEMORY IT SELECTS PAR 6 WHICH WILL PUT ADDR <xXXxX1>0000 ON THE UNIBUS. THE X°S WILL 
1401 iA hel sick Ds USABLE MAPPING REGISTER. THE DEFAULT CASE IS 00010000, SELECTING 
1403 605740 005737 001314 TST PCPUER ;SEE IF THERE WAS MAIN MEMORY 
1404 005744 001020 BNE $ ‘BRANCH IF NO MAIN MEMORY FROM UNIBUS 
1405 005746 012737 000040 001312 MOV #NEXMEM, CPUEXP +POSSIBLE CACHE NON-EXISTENT MEMORY 
1406 005754 011103 2$: MOV (R1),R3 “READ TEST LOCATION VIA FASTBUS 
1407 005756 022737 000040 001314 CMP #NEXMEM,PCPUER :WAS THIS CACHE NON-EXISTENT MEMORY 
1408 0057 001410 BEQ 3$ ‘BRANCH IF NON-EXISTENT MEMORY 
1409 005766 011002 MOV (RO) ,R2 ;READ TEST LOCATION VIA UNIBUS M 
1410 005770 020203 CMP R2,R3 :COMPARE TEST DATA R2=MAP DATA, ae FASTBUS DATA 
1411 005772 001405 BEQ 3$ ‘BRANCH IF IT WAS THE SAME 
1412 00577 011646 MOV (SP) ,-(SP) :PUT AN EXTRA RETURN ADDRESS ON STACK FOR POSSIBLE LOOP 
1413 005776 012737 000001 001202 MOV #1, $TMP4 “SET FLAG SHOWING AN ERROR RETURN 
1414 0060 0207 RTS PC RETURN TO THE ERR 
1415 0060 005227 177777 3$: INC #-1 ; INCREMENT ONE cine * ENTRANCE FLAG 
1416 006012 001006 BNE 5$ ‘BRANCH IF I'VE BEEN HERE BEFORE 
1417 006014 013737 172350 001342 MOV KIPARG,RSIZE | :SAVE UPPER LIMIT OF MEMORY 
1418 006022 000402 BR 5$ ;BRANCH OVER ERROR LOOP CORRECTION 
1419 006024 062706 000002 4$: ADD #2,SP :POP EXCESS RETURN ADDRESS OFF STACK 
1420 006030 062737 000100 001350 S$: ADD #100 DATA “CHANGE PATTERN FOR NEXT LOAD 
1421 006036 062737 000100 172350 ADD #100. KIPARG [ADD 2k TO PAR4 
1422 006064 062777 010000 173224 ADD #10000, @LREGL ;ADD 2k 10 MAP REGISTER 
1423 00605 001323 BNE ae sBRANCH IF MAP REGISTER NOT ZERO 
1424 006054 005277 173220 INC ‘ADD ONE TO UPPER 6 BITS OF MAP REG 
1425 006060 022/77 000073 173212 CMP OS er REGU ;SEE IF TOP 128K BLOCK HAS BEEN PASSED 
1426 006 103315 BHIS 1$ > BRANCH IF NOT PAST IT 
| 
| 
| 


me ii 6 
1427 006070 


005257 0013 INC DATA CHANGE DATA PATTERN FOR NEXT PASS 
1428 006074 042737 177700 001350 BIC #177700 ,DATA ;CLEAR UPPER 10 BITS OF DATA PATTERN SEQ 0077 
1429 006102 052737 000300 001350 BIS #300, DATA ;START WITH 3XX IN DATA PATTERN 
1430 006110 005037 001312 CLR CPUE XP NO CPU TRAPS EXPECTED FOR AWHILE 
1431 006114 005726 TST (SP)+ ;POP STACK EXPOSING FINAL RETURN ADDRESS 
1432 006116 000207 RTS PC sEXIT 
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1 MAP 
ASCII STRINGS USED IN THIS DIAGNOSTIC 
» SBTTL 

006124 021730 TMS: WOR 
001264 001266 001270 DTMSG: .WORD 
00000 HARCT: .WORD 
0000 EXTOUT: .WORD 
00 000077 EADRES: .WORD 
000000 000077 EADRS2: .WORD 
0000 FLOATR: .WORD 
000000 MASK1: .WORD 
000000 SK2: .WORD 
SPECST: .BLKW 
101 103 103 TOMSG: .ASCII 
103 101 125 -ASCIZ 
200 123 111 JMPMSG: .ASCII 
120 117 123 -ASCII 
125 123 105 ASCII 
125 116 111 ASCII 
101 116 104 -ASCIT 
105 116 101 ASCII 
040 040 114 ASCII 
040 040 125 ASCII 
040 040 040 -ASCIZ 
124 110 105 NOMORE: .ASCII 
105 122 122 -ASCIZ 
124 110 111 RADCPU: .ASCII 
104 111 101 -ASCIZ 
111 123 040 MRQUES: .ASCIZ 
104 111 101 GMRMOD: .ASCIZ 
000 CPUTYP: .BYTE 


DATA te 5 AND ASCII “reo ee. IN THIS DIAGNOSTIC 
D TMSG ,DF MSG POINTER 
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0 DATA VARIABLE ADDRESSES 

RRRLOG, ARAM .UBRL OV, VORA TEST VARIABLES TO BE PRINTED 

THIS LOCATION HOLDS ge TNahacicns: INPUTED DURING THE TYPE ROU 
‘THIS LOCATION STORES THE OUTPUT OF THE EXTRACTION ROUTINE 
[LOCATIONS FOR STORING 22 BITS OF THE UBMAP REGISTER ADDRES 
‘LOCATIONS FOR STORING ANOTHER UBMAP REGISTER ADDRESS 
‘LOCATION TO HOLD BIT TO FLOAT TO TEST DOW'S STATUS 
[PRE-LOADED BY THE TEST WITH THE 1ST BIT-MASK 
:PRE-LOADED BY THE TEST WITH THE 2ND BIT-MASK 


2ACCESSING MEMORY THROUGH THE FOLLOWING REGISTER(S)?<CRLF> 
CAUSED TIME OUTS (THEY MIGHT BE UNEXPECTED) ?<CRLF> 

<CRLF>?S1ZE JUMPERS ON UNIBUS MAP ARE NOT IN THEIR DEFAULT?<CRLF> 
?POSITION. MAP REGISTERS BETWEEN THE LOWEST AND HIGHEST?<CRLF> 
USEABLE, AND ABOVE THE UNIBUS END NUMBER WILL BE TESTED.?<CRLF> 
7UNIBUS MEMORY WILL BE ASSUMED TO BE BETWEEN UNIBUS BEGIN?<CRLF> 
2AND END REGISTER NUMBERS IF BIT <5> IS SET IN THE SwWR,? 

ZENABL ING TEST #23 TO EXECUTE. ?<CRLF><CRLF> 

? LOWEST HIGEST UNIBUS UNIBUS?<CRLF> 

? USABLE vente BEGIN END?<CRLF> 

? _REG# REG # REG # REG # TEST #2<CRLF> 

?THERE ARE STILL ee ERRORS BUT WILL NOT BE TYPED. EACH?<CRLF> 
ERROR WILL BE COUNTED AND NUMBER PRINTED AT THE END-OF -PASS?<CRLF> 
2THIS DIAGNOSTIC IS DESIGNED FOR AN 11/24 OR 11/44.?2<CRLF> 
?DIAGNOSTIC DOES NOT INTERPRET CPU AS EITHER ONE.?<CRLF> 

71S THERE A MAP REGISTER MODULE IN THIS CPU (Y OR <CR>)? 
2DIAGNOSTIC CHECKS THIS MODULE - INSERT BEFORE RE-RUNNING?<CRLF > 
0 ;LOCATION TO STORE THE CPU TYPE NUMBER 


SEQ 0078 


TINE 
S 





r- ee - ——__—_______- --——— = — SS SS SS Ce 
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/PRE-TESTING SETUP SEQ 0079 
1462 -SBTTL PRE-TESTING SETUP 
/ 1465 seeeeeeeeeeneeenere 
1464 START OF TEST CODE 
1465 ,eeeeeeeeneeeeeeere 
1466 
1467 010000 -=10000 ;START TEST CODE AT ADDRESS 10000 (2k) 
1468 010000 START: 
010000 012737 000340 177776 MOV #340 ,a4PS 3;LOCK OUT ALL INTERRUPTS 
010006 012706 001100 MOV #SCMTAG, R6 3;FIRST LOCATION TO BE CLEARED 
010012 005026 200$: CLR (R6)+ at MEMORY LOCATION 
010014 022706 001134 CMP #STKS,R6 NE? 
010020 001374 BNE 200% “LOOP BACK IF 
010022 005037 020022 CLR $PASS ‘it INITIALIZE PASS. COUNT 
010026 0612706 001100 MOV #STACK,SP ;SETUP THE STACK POINTER 
010032 012737 020140 000020 MOV #SSCOPE, aw LOTVEC’ is lor VECTOR FOR SCOPE ROUTINE 
010040 012737 000340 000022 MOV #340, a#LOTVEC+2 ssLEVEL 7 
010046 012737 020520 000030 MOV #SERROR ,A#EMTVEC teat VECTOR FOR ERROR ROUTINE 
010054 012737 000340 000032 MOV #340, a#EMTVEC+2 ;;LEVEL 7 
010062 012737 003724 000034 MOV #STRAP, a#TRAPVEC fi VECTOR FOR TRAP CALLS 
010070 012737 000340 000036 MOV #340, a#TRAPVEC+2; LEVEL 7 
010076 012737 003766 000024 MOV #SPWRDN, a#PWRVEC tT POWER FAILURE VECTOR 
010104 012737 000340 000026 MOV #340, a#PWRVEC+2 ss LEVEL 7 
010112 013737 021354 021346 MOV SENDCT, SEOPCT ;;SETUP END-OF-PROGRAM COUNTER 
010120 005037 001210 CLR STIMES s; INITIALIZE NUMBER OF ITERATIONS 
010124 005037 001212 CLR SESCAPE 3;CLEAR THE ESCAPE ON ERROR ADDRESS 
010130 112737 000001 001113 MOVB #1, SERMAX ;;ALLOW ONE ERROR PER TEST 
010136 01 021602 000014 MOV #SRTRN, a#TBITVEC SET "T'' BIT VECTOR TO $RTRN 
010144 012737 000340 000016 MOV tes QaTBITVEC +? abeVEl L 7 
010152 012737 000002 021602 MOV #RTL,SRTRN 7SET $RTRN TO : RTI 
010160 012737 010206 000010 MOV me itd SARE SVEC ;TRY TO DO A RIT 
010166 005046 CLR (SP) iby Y PS 
(010170 012746 010176 MOV #648, -(SP) AND PC 
010174 000006 RTT TRY THE R 
010176 012737 000006 021602 64$: MOV #RTT,SRTRN SIRTT IS LEGAL=-SET $RTRN TO A RIT 
010204 000402 BR 66$ 
010206 062706 000010 65$: ADD #10,SP sRTT ILLEGAL--CLEAN OFF THE STACK 
010212 012737 000012 000010 66$: MOV #RESVEC#2, awresvet gj RESTORE TRAP sor 
010220 005037 021610 CLR STBIT CLEAR ‘'T'' BIT SWITCH 
010224 012737 010602 001104 MOV #TST1+2,$LPADR S ONITIALIZE THE LOOP ADDRESS FOR SCOPE 
010232 012737 010602 001106 MOV #15T1+2, $LPERR 7;SETUP THE ERROR LOOP ADDRESS 
1469 010240 005227 177777 INC #-1 scFIRST TIME? 
010244 001020 BNE 67$ ;:BRANCH IF NO 
010246 022737 021534 000042 CMP #SENDAD ,a#42 33ACT-11? 
010254 001414 BEQ 67$ 1 eee IF YES 
010256 104400 010264 TYPE ,68$ ; TYPE ASCIZ STRING 
010262 000411 _ BR 67$ :GET OVER THE ASCIZ 
010264 200 103 113 68$: as <CRLF>?CKKUABO vai MAP?<CRLF > 
010306 67$: 
1470 010306 005737 020022 TST $PASS 31S THIS THE FIRST PASS? 
1471 010312 001067 BNE 9% ;BRANCH IF NOT 


} 


000004 MOV 4,-(SP) de ye VECTOR 


010410 000004 MOV #2$,4 TIMEOUTS TO 104$ SEQ 0080 
000006 MOV 6,-(SP) SAVE PS $ VECTOR 
000340 000006 MOV oha0° 6 :PRIORITY 

MFPT “DETERMINE PROCESSOR TYPE 


007774 MOVB RO,CPUTYP ;MOVE THE CPU NUMBER TO CPUTYP 





td dt od 
PUP PVPS, PIVIVIVIVIUT 
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11/44 UBI 
ING SETUP SEQ 0081 
010346 105337 007774 DECB CPUTYP MAKE THE 11/44 VALUE ZERO 
010352 001005 BNE 1$ ‘BRANCH TO NEXT TEST IF NOT AN 11/44 
010354 104400 021775 TYPE CPUMSG ‘TYPE THE CPU TYPE HEADER 
010360 104400 022056 TYPE ELEV44 ‘TYPE THE 11/44 NUMBER 
010364 000421 BR $ : CONTINUE 
010366 122737 000002 007774 1$: CMPB ss #2, CPUTYP “SEE IF THIS IS AN 11/24 
010374 001007 BNE 3$ BRANCH TO FATAL ERROR MESSAGE PRINTING IF NOT 
010376 104400 021775 TYPE , CPUMSG ‘TYPE THE CPU TYPE HEADER 
010402 104400 022052 TYPE ELEV24 ‘TYPE THE 11/24 NUMBER 
010406 000410 BR 5$ : CONTINUE 
010410 062706 000004 2$: ADD #4 ,SP ;CLEAN STACK AFTER TIMEOUT 
010414 005237 020014 3$: INC SMSGTY ‘TELL APT THIS IS A FATAL ERROR 
010420 104400 007446 i$: TYPE ,BADCPU :TYPE THE BAD CPU MESSAGE 
010424 000000 HALT ‘FATAL ERROR = THIS DIAGNOSTIC IS WRITTEN 
2 “FOR 11/24 AND 11/44 PROCESSORS ONLY 
010426 000774 BR 4$ [DON'T ALLOW CONTINUE 
010430 012737 010450 000004 S$: MOV #6$,4 : TIMEOUTS TO 120$ 
010436 022777 177777 170504 CMP #-1,aSwR “SEE IF HARDWARE SWITCH REGISTER EXISTS OR CONTAINS -1 
6 010444 001006 BNE 8$ : BRANCH TO CONTINUE IF IT EXISTS AND DOESN'T CONTAIN -1 
010446 000402 BR 7$ ;BRANCH TO SET UP FOR = SWITCH REGISTER IF SO 
1498 010450 062706 000004 63: ADD #4,SP :CLEAN STACK AFTER TIMEOUT 
010454 012737 000176 001150 /7$: MOV #SSSWR,SWR SMOVE ADDRESS OF SOFTWARE SWITCH REGISTER TO SWR 
00 010462 012637 000006 8$: MOV (SP)+,6 sRESTORE TIMEOUT PS 
010466 012637 000004 MOV (SP)+,4 RESTORE TIMEOUT VECTOR 
2 010472 132737 000200 020035 9s: BITB #200,$ENVM :1§ APT SIZING 
03 010500 001403 BEQ LOOP “BRANCH IF NOT 
04 010502 012737 020036 001150 MOV #SSWREG, SWR “USE APT SWITCH REGISTER 
05 010510 012737 004744 000250 LOOP: MOV #MMATRAP ,MMVEC [LOA D MEMORY MANAGEMENT TRAP SERVICE ROUTINE ADDRESS 
06 010516 012737 000340 000252 MOV #340,MMVEC+2  :SET PRIORITY SEVEN 
07 010524 012737 004602 000004 MOV #CPUER,ERRVEC :LOAD CPU TRAP SERVICE ROUTINE ADDR 
08 010532 012737 000340 000006 MOV #340, ERRVEC+2 :SET PRIORITY SEVEN 
09 010540 005037 001312 CLR CPUEXP NOT EXPECTING ANY CPU ERRORS 
10 010544 005037 177572 CLR MMRO “START IN 16 BIT MAPPING 
11 010550 005037 172516 CLR MARS DISABLE MAP AND 22-BIT MAPPING 
12 010554 012700 177777 MOV #-1,R0 ‘NEGATIVE ONE USED TO INITIALIZE FLAGS 
13 010560 010037 004604 MOV RO, CPFLAG : INITIALIZE FLAGS 
14 010564 010037 004412 MOV RO, TOFLAG s INITIALIZE FLAGS 
15 010570 010037 004746 MOV RO.MMFLAG s INITIALIZE FLAGS 
16 010574 010037 177766 MOV RO,CPUERR :CLEAR CPU ERROR REGISTER 
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‘TEST 1 = MAP REGISTER RESPONSE TEST SEQ 0082 
1526 .SBTTL TEST 1 = MAP REGISTER RESPONSE TEST 
FERRARO RR ERE AERA RARE AEA ERA AAA E AERA AERA AAAATE AREA AAAHAERAR AEE EED 
teTEST 1 MAP REGISTER RESPONSE TEST 
3;* 
ie THIS TEST IS USED TO ENSURE THAT ALL THE UNIBUS MAP REGISTERS 
se CAN BE REFERENCED UNDER PROGRAM CONTROL, WITHOUT TIMING OUT 
:* THE ADDRESSES OF ANY MAP REGISTERS THAT TIME OUT WILL BE REPORTED 
tt AND, AT THE END OF THE TEST, A SUMMARY OF THOSE REGISTERS WILL 
te BE GIVEN. 
‘? 
:: REAR ARARERAEARAEAAEATARATAAAEAAAEAARARAARAAARHAEAERARARAAARARAAAAARAEEE 
010600 S11: 
010600 000004 SCOPE 
010602 004737 017662 JSR PC,PRETST :G0 SET UP PRETEST DATA 
010606 011022 010634 000001 \WORD TST2,208,1 :DATA USED BY PRETST 
$27 010614 012737 004410 000004 MOV #TIMEOUTERRVEC [LOAD ERRVEC WITH ROUTINE ADDRESS 
1528 010622 105737 007774 TSTB —- CPUTYP “TEST TO SEE WHICH CPU IS RUNNING THIS DIAGNOSTIC 
1529 010626 001460 BEO $C “BRANCH AROUND MAP REGISTER EXISTENCE CHECK IF 11/44 
1530 010630 005037 001302 CLR ERRCNT “CLEAR THE ERROR COUNTER 
1531 010634 017702 157340 20$: MOV @MAPLO,R2 “READ FIRST MAP REGISTER TO R2 
1532 010640 005737 001302 TST ERRCNT “SEE IF THERE WERE ANY ERRORS 
1533 010644 001451 BEQ 5$ “BRANCH TO CHECK THEM ALL IF NONE, THEY ARE IN THIS 11/24 
1534 010646 005037 001302 CLR ERRCNT “CLEAR THE ERROR COUNTER 
1535 010652 105037 006162 CLRB ss SPECST “CLEAR THE CHARACTER RECEIVER LOCATION 
1536 010656 105737 020034 TSTB ss SENV ‘ARE WE RUNNING UNDER APT 
1537 010662 001036 BNE 4$ “BRANCH IF SO 
1538 010664 104400 007613 TYPE —§ ,MRQUES SASK USER IF THERE ARE MAP REGISTERS IN THIS 11/24 
1539 010670 105737 006162 TSTB © SPEC ST “SEE TF A CHARACTER WAS INPUTED DURING THE PRINTING 
1540 010674 001006 BNE 2$ ‘BRANCH TO CHECK INPUT IF SO 
1541 010676 105777 170232 1$: TSTB = @STKS “SEE IF A CHARACTER IS INPUTED 
1542 010702 100375 BPL 1$ ‘BRANCH BACK IF NOT 
1543 010704 117737 170226 006162 MOVB  a$TKB,SPECST | :MOVE THE CHARACTER TO THE SPECST LOCATION 
1544 010712 142737 000200 006162 28: BICB  #200,SPECST “CLEAR THE PARITY BIT 
1545 010720 105777 170214 3$: TSTB = a@$TPS “SEE IF PRINTER IS READY 
1546 010724 100375 BPL 3$ “BRANCH BACK UNTIL READY 
1547 010726 113777 006162 170206 MOVB  SPECST,@$TPB =: PRINT THE CHARACTER 
1548 010734 104400 001221 TYPE  ,$CRLF “TYPE A <CRLF> 
1549 010740 122737 000131 006162 CMPB WY, SPECST [SEE IF THIS WAS A 
1550 010746 001410 BEQ 5$ “BRANCH AROUND AP nESSAGE If EQUAL TO A ‘Y' 
1551 010750 104400 007702 TYPE § ,GMRMOD ;TYPE: "DIAGNOSTIC CHECKS THIS MODULE ~ INSERT 
1552 "BEFORE RE-RUNNING’ 
1553 010754 000000 HALT “FATAL ERROR - WAIT FOR USER ACTION 
1554 010756 000726 BR 20$ ‘TRY AGAIN = RESTART REQUESTED 
1555 010760 005237 020014 4$: INC SMSGTY ‘TELL APT THIS IS A FATAL ERROR 
1556 010764 000000 HALT “HALT = FATAL ERROR 
1557 010766 00072 BR 20% “TRY AGAIN - RESTART REQUESTED 
1558 010770 012700 170200 5$: MOV #MAPLO,RO “PUT FIRST MAP REGISTER ADDR IN RO 
1559 010774 012737 011006 001106 MOV #6$, SLPERR “SET LOOP ON ERROR POINTER TO 6$ 
1560 011002 012703 000100 MOV #106,R3 ‘TEST ALL MAP REGISTERS 
1561 011006 012002 6$: MOV (RO)+,R2 *READ MAP REGISTERS TO R2 
1562 011010 077302 SOB R3,6$ [DO ALL OF THEM 
1563 011012 005737 001302 TST ERRCNT “SEE IF THERE WERE ANY ERRORS 
1564 011016 001401 BEQ TST2 =:G0 TO NEXT TEST IF NO ERRORS 
1565 011020 104004 ERROR +4 “SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 
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TEST 2 = BIT PATTERN AND CLEAR TEST OF 40 MAP REGISTERS SEQ 0083 
1580 .SBTTL TEST 2 = BIT PATTERN AND CLEAR TEST OF 40 MAP REGISTERS 
PRRARERAA RARER AAEERAEEH AERA ERER EAE RAHEAERAEAAEAHAREARHA ERRATA 
S#TEST 2 BIT PATTERN AND CLEAR TEST OF 40 MAP REGISTERS 
ie 
;* THIS TEST WILL RUN 7 BIT PATTERNS THROUGH BOTH WORDS OF 40 UNIBUS 
;* MAP REGISTER LOCATIONS MAPLOO = MAPL37, USING TWO MAJOR PASSES. 
;* IT WILL TEST THE LOWER 16 BITS ON THE FIRST PASS, AND THE UPPER 
it 6 BITS ON THE SECOND. THIS TEST WILL MAKE SURE THE REGISTER CAN 
;* CLEAR, AND THEN RUN 6 BIT PATTERNS THROUGH EACH UNIBUS MAP REGISTER. 
:* IF THE DATA PATTE®\ RECEIVED DOES NOT MATCH THE EXPECTED PATTERN, 
te THEN THE MAP REGIoTER ADDRESS, DATA RECEIVED, PATTERN LOADED, AND 
te PATTERN EXPECTED ARE REPORTED. AT THE END OF EACH OF THE TWO MAJOR 
;* PASSES, A SUMMARY OF ALL ERRORS IS GIVEN SO THAT YOU CAN DETERMINE 
* IF THE ERROR IS BIT SENSITIVE OR REGISTER SENSITIVE. 
‘@ 
t: RAERAARARTARARAARAAEAETEAAEATETARAEKAEAAEAAEAARAAERARARARARREKRAAREARERERAEEEEEEEE 
011022 S12: 
011022 000004 SCOPE 
011024 004737 017662 JSR PC, PRETST :GO SET UP PRETEST DATA 
011030 011400 011044 000002 -WORD TS13,20$,2 :DATA USED BY PRETST 
1581 011036 012737 004602 000004 MOV #CPUER, ERRVEC :LOAD CPU TRAP SERVICE ROUTINE ADDRESS 
1582 011044 005037 001302 208: CLR ERRCN :CLEAR THE ERROR COUNT LOCATION 
1583 011050 012700 170200 MOV #MAPLOO, RO [MOVE STARTING ADDRESS OF LOWER 16 BITS REGISTER TO RO 
1584 011054 005037 006156 CLR MASK1 >MOVE 'O' TO MASK1 
1585 011060 012737 000001 006160 MOV #1 ,MASK2 ;MOVE "1" TO MASK2 
1586 011066 012701 000040 1$: MOV #40,R1 DO 40 REGISTERS LOOP COUNTER 
1587 011072 012702 000007 2$: MOV #7, R2 ‘MOVE PATTERN LOOP COUNTER TO R2 
1588 011076 012705 021712 MOV #PATRNS, R5 sMOVE PATTERN START TO RS 
1589 011102 011504 3$: MOV ‘MOVE NEXT COUNT PATTERN TO R2 
1590 011104 043704 006156 BIC MASK1,R4 SUSE MASK1 PRE-LOADED FOR PROPER LOADING 
1591 011110 010410 MOV R4, (RO) ‘LOAD MAP REGISTER WITH COUNT PATTERN 
1592 011112 011504 MOV (R5) RG ‘RELOAD PATTERN 
1593 011114 043704 006160 BIC MASK2,R4 [USE THE 2ND MASK TO CONSTRUCT EXPECTED VALUE 
1594 011120 020410 CMP R4, (RO) [COMPARE EXPECTED WITH RECEIVED 
1595 011122 001450 BEQ 7$ ‘BRANCH IF DATA IS OK 
1596 011124 011003 4$: MOV (RO) .R3 :READ BAD MAP REGISTER DATA INTO R3 
1597 011126 011537 001172 MOV (R5) .$TMPO [MOVE PATTERN TO $TMPO 
1598 011132 043737 006156 001172 BIC MASK1, STMPO [FORM INPUT PATTERN FOR ERROR PRINTING 
1599 011140 013746 172356 MOV KIPAR7,-(SP) :PUT PAR CONTENTS ON STACK FOR ADREXT SUBROUTINE 
1600 011144 010046 .« MOV RO,-(SP) ‘PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE 
1601 011146 004737 005250 JSR PC. ADREXT :GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 
1602 sAND FORM A PHYSICAL 22-BIT ADDRESS 
1603 011152 011546 MOV (R5) ,-(SP) [PUT PATTERN ON STACK FOR PATEXT SUBROUTINE USE 
1604 011154 004737 005224 JSR PC ,PATEXT ‘GO SET DATA INTO PATTOR AND PATAND 
1605 011160 011046 MOV (RO) ,-(SP) ‘PUT DATA ON STACK FOR DATEXT SUBROUTINE 
1606 011162 004737 005200 JSR PC ,DATEXT ‘SUBROUTINE TO LOAD DATAOR AND DATAND 
1607 011166 010037 006150 MOV RO. EADRS2 “MOVE ADDRESS IN RO TO EADRES FOR ERROR CALL 
1608 011172 012737 011202 001106 MOV #5$, SLPERR =RESET LOOP ON ERROR FOR TIGHT LOOP 
1609 011200 000411 BR 6$ ‘BRANCH OVER LOOP ON ERROR SECTION 
1610 011202 011504 5$ MOV (RS) ,R4 *RELOAD PATTERN 
1611 011204 043704 006156 BIC MASK’, R4 ;PREPARE PATTERN FOR LOAD 


MOV RG, (RO) RELOAD MAP REGISTER WITH COUNT PATTERN 


MOV (R5) P4 :RELOAD PATTERN SEQ 0084 
006160 BIC MASK2 RG “PREPARE PATTERN FOR EXPECTED | 
CMP R4, (RO) ‘SEE IF PATTERN IS OK NOW 


BEQ 65$ “BRANCH IF SO 
6$: ERROR +203 “THE BIT PATTERN THROUGH THE MAP REGISTERS FAILED 
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CKKUABO 11/44 UBI 
TEST 2 = BIT PATTERN AND CLEAR TEST OF 40 MAP REGISTERS SEQ 0085 
1618 011226 032777 001000 167714 65$: BIT #B1T9,aSwR ;SEE_ IF LOOP ON ERROR IS SET 
1619 011234 001362 BNE 5$ ;LOOP BACK IF SO 
1620 011236 012737 011102 001106 MOV #3$,SLPERR ;MOVE 3$ TO LOOP ON ERROR INDICATOR 
1621 011244 062705 000002 7$: ADD #2,R5 ;UNDO LOOP ON ERROR PREPARATION 
1622 011250 005302 DEC R2 ;DECREMENT LOOP COUNTER 
1623 011252 001313 BNE 3$ ;BRANCH IF STILL MORE PATTERNS FOR THIS REGISTER 
1624 011254 062700 000004 ADD #4 ,RO ;POINT TO NEXT MAP REGISTER UNDER TEST 
1625 011260 005301 DEC R1 ;DECREMENT LOOP COUNTER AND 
1626 011262 001303 BNE 2$ sBRANCH IF STILL MORE REGISTERS 
1627 011264 005737 001302 TST ERRCNT SEE IF THERE WERE ANY ERRORS 
1628 011270 001413 BEQ 9$ ;BRANCH IF NO ERRORS 
1629 011272 022700 170402 CMP #MAPH37+4 ,RO ;SEE IF THIS PASS WAS UPPER 6 BITS 
1630 011276 001404 BEQ 8$ 3GO SERVICE UPPER 6 BITS ERROR IF SO 
1631 011300 005337 001110 DEC SERTTL ;DON'T COUNT ERROR +6 AS ANOTHER ERROR 
1632 011304 104006 ERROR +6 ;SUMMARY OF BIT PATTERN FAILURES, LOWER 16 BITS 
1633 011306 000407 10$ ;GO SET UP DATA FOR TESTING UPPER 6 BITS 
1634 011310 005327 001110 8$: DEC SERTTL ;DON'T COUNT ERROR +7 AS ANOTHER ERROR 
1635 017314 104007 ERROR +7 ; SUMMARY OF BIT PATTERN FAILURES, UPPER 6 BITS 
1636 011316 000430 BR TST3 3;G0 TO NEXT TEST - LOWER 16 BITS ALREADY TESTED 
1637 011320 022700 170402 9$: CMP #MAPH37+4,R0 ;SEE IF THIS PASS WAS FOR THE UPPER 6 BITS 
1638 011324 001425 BEQ TST3 3;G0 TO NEXT TEST IF IT WAS 
1639 011326 012700 170202 10$: MOV #MAPHOO,RO MOVE STARTING ADDRESS OF UPPER 6 BITS REGISTER TO RO 
1640 011332 012737 177700 006156 MOV #177700,MASK1 ;MOVE 1ST MASK TO MASK1 
1641 011340 012737 177700 006160 MOV #177700,MASK2 ;MOVE 2ND MASK TO MASK2 
1642 011346 005037 001252 CLR PATTOR ;CLEAR PATTOR FOR NEXT PASS 
1643 011352 005037 001244 CLR DATAOR ;CLEAR DATAOR FOR NEXT PASS 
1644 011356 012737 177777 001250 MOV #-1,PATAND ;MOVE -1 TO PATAND FOR NEXT PASS 
1645 011364 012737 177777 001240 MOV #-1,DATAND ;MOVE -1 TO DATAND FOR NEXT PASS 
1646 011372 005037 001302 CLR ERRCNT ;CLEAR ERROR COUNT FOR NEXT PASS 
1647 011376 000633 BR 1$ ;GO REACCOMPLISH TEST FOR UPPER 6 BITS 





1660 
011400 
011400 
011402 
011406 
1661 011414 
1662 011422 
1663 011426 
1664 011432 
1665 011436 
1666 011444 
1667 011450 
1668 011454 
1669 011460 
1670 011464 
1671 011470 
1672 011474 
1673 011500 
1674 011502 
1675 011504 
1676 011506 
1677 011510 
1678 011512 
1679 011516 
1680 011522 
1681 011526 
1682 011530 
1683 
1684 011534 
1685 011536 
1686 011542 
1687 011546 
1688 011550 
1689 011554 
1690 011556 
1691 011560 
1692 011562 
1693 011564 
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TEST 3 = DUAL ADDRESS LOADS & READS MAP REG'S SEQ 0086 
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170400 


001200 
000002 
172356 
005250 
005200 
006150 
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001302 


003 
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-SBTTL TEST 3 = DUAL ADDRESS LOADS & READS MAP REG'S 


FERRARA REA RA EERE EERE AEE AAA AAEEAEEEAAAAAA RARER AEEEAAAAERERENAE 


se TEST 3 DUAL ADDRESS LOADS & READS MAP REG'S 


ie THIS Test ENSURES THAT ONLY ONE UNIBUS MAP REGISTER IS LOADED 
jt DURING A "MOV #DATA,MAPREG'' INSTRUCTION. ALL MAP REGISTERS 
;* ARE CLEARED AND ONE REGISTER AT A TIME, STARTING WITH MAPLOO, 
3 1S LOADED WITH A <1. THEN, ALL MAP REGISTERS ARE READ 
3 STARTING WITH MAPH37, AND VERIFIED TO BE ZERO. ANY REGISTER 
:* THAT IS NOT ZERO AND WHOSE UNIBUS ADDRESS DOES NOT MATCH THAT 
:* OF THE REGISTER UNDER TEST IS REPORTED TO BE IN ERROR. AT THE 
:* END OF THE TEST A SUMMARY OF ALL DUALED REGISTERS IS GIVEN. 
*® 
PPI TTI TI TIT ITIL ITT TTI T TTT TT itt tii titi titi t iii irr 
$13: 
SCOPE 
JSR PC,PRETST :G0 SET UP PRETEST DATA 
“WORD 1S14,20$,3 :DATA USED BY PRETST 
BIC #1, MMRO ‘TURN OFF MEMORY MANAGEMENT 
MOV #MAPLOO,RO ‘LOAD ADDRESS OF MAPLOO IN RO 
MOV #177700.R2 *SET UP XOR DATA 
1$: MOV #MAPH37+2,R1 -« :PUT ADDRESS OF MAPH37+2 IN R1 
MOV #77,$TMPO ‘SET UP TEST PATTERN IN $TMPO 
JSR PC CLRMAP [CLEAR ALL MAP REGISTERS FOR TEST 
MOV #100,R3 ‘SET UP LOOP COUNTER FOR TESTING 40 REGISTERS, 2 WORDS EACH 
CLR MMR3 =CLEAR MMR3 
2$: MOV #100,R4 ‘SET UP LOOP COUNTER FOR CHECKING 40 REGISTERS, 2 WORDS EACH 
XOR R2,$TMPO :REVERSE BIT STATES OF STHPO IN BITS 7 TO 15 
20$: MOV STMPO, (RO) [LOAD MAP REGISTER UNDER TEST 
MOV #MAPH37+2,R1 ‘PUT ADDRESS OF MAPH37+2 IN R1 
3$: TST -(R1) :SEE IF MAP REGISTER IS ZERO 
BEQ 6$ [GO SEE IF MORE REGISTERS TO TEST IF = 0 
CLR (R1) [CLEAR THE FAILED LOCATION 
CMP R1,RO :SEE IF NON-ZERO REGISTER ADDRESS MATCHES ADDRESS LOADED 
BEQ 6$ :GO SEE IF MORE REGISTERS TO TEST IF SO 
MOV (R1),STMP3 ‘MOVE FAULTY DATA TO $TMP3 
ADD #2,R1 [PREPARE FOR POSSIBLE ERROR LOOPING 
MOV KIPAR7,-(SP) | :PUT PAR ON STACK FOR ADREXT SUBROUTINE USE 
MOV R1,-(SP) ‘PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE USE 
JSR PC ADREXT ‘GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 
[AND FORM A PHYSICAL 22-BIT ADDRESS 
MOV RO,-(SP) ‘PUT ADDRESS ON STACK FOR DATEXT SUBROUTINE USE 
JSR PC .DATEXT > SUBROUTINE TO LOAD DATAOR AND DATAND 
MOV RO.EADRS2 [MOVE ADDRESS IN RO TO EADRS2 FOR ERROR CALL 
ERROR +202 “DUAL ADDRESSING ERROR IN THE UNIBUS MAP 
5$: SUB #2,R1 “UNDO ERROR LOOPING PREPARATION - NO LOOPING 
6$: 0B R4.3$ ‘BRANCH IF MORE REGISTERS TO CHECK 
CLR (RG) + [CLEAR THE REGISTER JUST ESTED AND POINT TO NEXT REGISTER 
DEC R3 ‘DECREMENT LOOP COUNTER AND 
BNE 2$ ‘BRANCH IF MORE REGISTERS TO TEST 


TST ERRCNT ;SEE IF THERE WERE ANY ERRORS 


1694 G11570 
1695 011572 
1696 011576 
1697 011600 


1698 
1699 011602 


001403 BEQ 
005337 001110 DEC 
104005 ERROR 
104420 RELC22: TBITR 
012700 077406 MOV 


#77406,R0 


:60 TO NEXT SECTION IF NO ERRORS 
;DON'T COUNT ERROR +5 AS ANOTHER ERROR 


Q 0087 


SEQ 
SUMMARY OF DUAL ADDRESSING ERRORS ON LOADING MAP REGISTERS 


RESTORE THE T i TO ITS CONDITION 
:BEFORE THE LAST TEST 
;MAKE THE KERNEL I-SPACE PAGES ALL 
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‘TEST 3 = DUAL ADDRESS LOADS & READS MAP REG'S SEQ 0088 
1700 34K, UPWARD EXPANDABLE oo 
1701 011606 012701 172300 MOV #KIPDRO,R1 ‘MOVE ADDRESS OF ok POR nO 
1702 011612 010021 MOV 0,(R1)4 “KERNEL I-SPACE PAGE 0 KI 1poRO 
1703 011614 010021 MOV RO, (R1)+ s KERNEL eSpace PAGE 1 KIPDR1 
1704 011616 010021 MOV RO, (R1)¢ “KERNEL I-SPACE PAGE : KIPDR2 
1705 011620 010021 MOV RO. (R1)¢ ‘KERNEL I=SPACE PAGE 3 KIPDR3 
1706 011622 010021 MOV RO. (R1)¢ “KERNEL I-SPACE PAGE 4 KIPDR4 
1707 011624 010021 MOV RO,(R1)+ sKERNEL I-SPACE PAGE 5 KIPDRS 
1708 011626 010021 MOV RO, (R1)+ sKERNEL ieapatt PAGE 6 KIPDR6 
1709 011630 010021 MOV RO, (R1)¢ sKERNEL I-SPACE PAGE 7 KIPDR7 
1710 011632 012701 172340 MOV #K{PARO, R1 :MOVE ADDRESS > Bo rss TO R1 
1711 011636 005021 CLR (R1)+ ‘MAP KIPARO TO PHYSICAL 0 
1712 011640 012721 000200 MOV #206, (R1)+ <MAP KIPAR1 TO PHYSICAL 4K - 8K 
1713 011644 012721 000400 MOV #400,(R1)+ ‘MAP KIPAR2 TO PHYSICAL 8K - 12k 
1714 011650 012721 000600 MOV #600,(R1)+ ‘MAP KIPAR3 TO PHYSICAL 12K - 16K 
1715 011654 012721 001000 MOV #1000, (R1)+ “MAP KIPAR4 TO PHYSICAL 16K = 20K 
1716 011660 012721 001200 MOV #1200, (R1)+ ;MAP KIPARS TO PHYSICAL 20K =- 24K 
1717 011664 012721 170000 MOV #170060, (R1)¢+ —- KIPAR6 TO ee 
1718 011670 012721 177600 MOV #177600.(R1)+ :MAP KIPAR7 TO I/0 PAGE 
1719 011674 012737 000001 177572 MOV #BITO, MMRO ears FULL pas MAPPING 
1720 011702 012737 000020 172516 MOV #BITG.MMR3 ‘ENABLE 22-BIT MAPPING 
1721 3* AT THIS POINT 22-BIT RELOCATION FROM MEMORY MANAGEMENT 
1722 3* 1S ENABLED, WITH THE KIPAR'S MAPPED TO PHYSICAL 0-24K. 
1723 3* KIPAR6 IS MAPPED TO THE UNIBUS (170000) AND 
1724 :t KIPAR7 IS MAPPED TO THE I/O PAGE (177600). 


| 
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TEST 4 = MAP REGISTER ADDRESS DECODE TEST SEQ 0089 
1735 .SBTTL TEST 4 = MAP REGISTER ADDRESS DECODE TEST 
Ff RARER RARER EAA EATER AERA EARAAHEHRAEAAEREAREREARKA RARER AA TAKES 
TeTEST 4 MAP REGISTER ADDRESS DECODE TEST 
°¢ 
:* THIS TEST TRIES TO VERIFY THAT NONE CF THE INPUTS TO THE ADDRESS 
7* DECODER FOR THE UNIBUS MAP REGISTERS IS STUCK TRUE. KIPAR6 IS 
;* SET UP TO HOLD 177702 AND R4 HAS THE VIRTUAL ADDRESS TO SELECT 
;* MAPLOO, THROUGH KIPAR6. THE TEST THEN CHANGES ONE BIT AT A TIME 
:* IN PAR6 SO THAT IT SHOULD NEVER REFERENCE MAPLOO. IF IT DOES, AN 
:° ERROR IS REPORTED. 
** 
+ Reet eeeeeeeeeeeteeeeeeeeeeeteeeeeeeeeteneeeeeeeeetteeeerenene 
011710 S14: 
011710 000004 SCOPE 
011712 004737 017662 JSR PC,PRETST 3GO SET UP PRETEST DATA 
011716 012130 011724 000004 “WORD TST5,20$,4 :DATA USED BY PRETST 
1736 011724 012737 000020 001312 208: MOV #TIMOUT, CPUE XP sEXPECTING CPU TIME OUT ON UNIBUS 
1737 011732 013737 172354 001176 MOV KIPAR6 $TMP2 sSAVE KIPAR6 FOR RESTORATION LATER 
1738 011740 012737 177702 172354 MOV #177702,KIPAR6 PUT MAP REGISTER 0 ADDR IN PAR6 
1739 011746 012702 175254 MOV #175254 ;PATTERN FOR TESTING. 
1740 011752 010237 170200 MOV R2,MAPLO ;LOAD MAP REGISTER 0 
1741 011756 012700 004000 MOV #B1T11,RO ‘SET BIT 11 TO FLOAT THROUGH PAR6 
1742 011762 012704 140000 MOV #140000, R4 :VIRT.ADDR. TO SELECT PAR6 
1743 011766 074037 172354 1$: XOR RO, KIPAR6 sCHANGE A BIT OF MAP REGISTER 0°S ADDR 
1744 011772 010046 MOV RO,-(SP) sSAVE RO ON STACK 
1745 011774 013746 172354 MOV KIPAR6,-(SP)  : SAVE KIPAR6 ON STACK 
1746 012000 011401 MOV (R4),R1 ;READ LOCATION POINTED TO BY PAR6 
1747 012002 020201 CMP R2,R1 ;SEE IF DATA FETCHED MATCHES PATTERN 
1748 012004 001035 BNE 3$ ‘BRANCH IF NOT SAME 
1749 012006 005014 CLR (R4) ;TRY TO CLEAR THIS LOCATION 
1750 012010 005737 170200 TST MAPLO ;SEE IF MAP REGISTER 0 GOT CLEARED 
1751 012014 001030 BNE $ ;sBRANCH IF MAP REGISTER NOT ZERO 
1752 012016 010237 170200 MOV R2,MAPLO =RESTORE MAPLO 
1753 01202 013746 172354 MOV KIPAR6, - (SP) ;PUT PAR ON STACK FOR ADREXT SUBROUTINE USE 
1754 012026 010446 MOV R4, -(5P) ;PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE USE 
1755 012030 004737 005250 JSR PC ,ADREXT 3GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 
1756 012034 012737 012044 001106 MOV #10$,$LPERR :SET LOOP ON ERROR POINTER TO 10$ 
1757 012042 000411 BR 11$ :GO CALL ERROR 
1758 012064 011401 10$: MOV (R4),R1 =READ LOCATION POINTED TO BY PAR6 
1759 012046 020201 CMP R2,R1 [SEE IF DATA FETCHED MATCHES PATTERN 
1760 012050 001013 BNE 3$ “BRANCH IF NOT SAME 
1761 012052 005014 CLR (R4) ;TRY TO CLEAR THIS LOCATION 
1762 012054 005737 170200 TST MAPLO ;SEE IF MAP REGISTER 0 GOT CLEARED 
1763 012060 001006 BNE 2$ BRANCH IF MAP REGISTER NOT ZERO 
1764 012062 010237 175200 MOV R2,MAPLO [RESTORE MAPLO 
1765 012066 104207 11$: ERROR +267 :GOT TO MAPLO WITH ONE BIT DIFFERENT IN ADDRESS FROM 1777020 
1766 012070 012737 000077 006146 MOV #77, EADRES+2 RESTORE 77 TO EADRES#2 
1767 012076 010114 2$: MOV R1, (R4) SRELOAD THE LOCATION 
1768 012100 012637 172354 3$: MOV (SP)+,KIPAR6  :RESTORE KIPAR6 
1769 012104 012600 MOV (SP)+.RO *RESTORE RO 
1770 012106 O74u5/ 172354 XOR RO, KIPAR6 sRESTORE BIT TO ORIGINAL STATUS 
1771 012112 006200 ASR RO “RIGHT SHIFT ONE PLAC 
1772 012114 001324 BNE =GO CONTINUE TEST IF BIT NOT SHIFTED OUT YET 
1773 012116 005037 001312 4$: CLR CPUEXP :2ERO EXPECTED CPU TRAP FLAG 
1774 012122 013737 001176 172354 MOV STMP2,KIPAR6  :RESTORE KIPARG 
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TEST 5 = DATA PATH, UNIBUS TO MAIN MEMORY SEQ 0090 
1787 \SBTTL TEST 5S = DATA PATH, UNIBUS TO MAIN MEMORY 
3 FRRAAAA AA AAAAAER ATER AAA TAE AE AA AT AA AAHRAARARHAHAARHA HAHA ARATE EE 
TeTEST 5 DATA PATH, UNIBUS TO MAIN MEMORY 
;* 
:* THIS TEST RUNS A COUNT PATTERN THROUGH A MEMORY LOCATION VIA 
3 THE UNIBUS. THE UNIBUS MAP IS LEFT OFF DURING THIS TEST SO 
ie THAT THE ADDRESS I$ NOT RELOCATED. THE TEST TRIES TO LOAD THE 
| ie PATTERN INTO ADDRESS 040000 (8K) BUT IF THE MAP JUMPERS ARE 
ie SET NOT TO RESPOND TO THAT ADDRESS THE NEXT 4K IS TRIED UNTIL 
:* THE TEST GETS TO MAIN MEMORY FROM THE UNIBUS. IF THIS TEST 
i DETERMINES THAT IT CANNOT GET TO MAIN MEMORY FROM THE UNIBUS 
ie IT REPORTS THE FACT AND SKIPS THE NEXT TEST FOR VERIFICATION. 
*® 
: SRR EREAE AEE A REE A TEA A AAA E AREA AERA AERA RARE AERA RAAAREAR AAAS 
012130 TSTS: 
012130 000004 SCOPE 
012132 004737 017662 JSR PC,PRETST :GO SET UP PRETEST DATA 
012136 012470 012162 000005 “WORD TS16,208,5 “DATA USED BY PRETST 
1788 012144 004737 004352 JSR PC, CLRMAP “CLEAR ALL MAP REGISTERS 
1789 012150 012737 000020 001312 MOV #TIMOUT,CPUEXP : TIMEOUTS MIGHT OCCUR IN THIS TEST. 
1790 012156 012704 000035 MOV #35,R4 'DO0 35 ACCESSES 
1791 012162 012737 1704600 172354 20%: MOV #176400,KIPAR6 :START WITH ADDRESS 8K FROM UNIBUS 
1792 012170 012737 170400 001206 MOV #170400.$TMP6  :MOVE IT TO $TMP6 ALSO 
1793 012176 005037 001314 2$: CLR PCPUER “CLEAR ERROR CONDITION LOCATION 
1794 012202 013700 140000 MOV 140000,R0 “TRY TO READ ADDRESS POINTED TO BY PAR6 
1795 012206 005737 001314 TST PCPUER “SEE IF READ OF ADDRESS TIMED OUT 
1796 012212 001411 BEQ 4$ “BRANCH IF REFERENCE WAS GOOD 
1797 012214 062737 000200 172354 35: ADD #200, KIPAR6 “TRY NEXT 4K BLOCK OF MEMORY 
1798 012222 062737 000200 001206 ADD #200 $TMP6 [ADD 200 TO $TMP6 ALSO 
1799 012230 077416 SOB R4,2$ ‘SUBTRACT 1 FROM R4 AND BRANCH IF NOT DONE 
1800 012232 104010 ERROR +10 "NO UNIBUS ADDRESSES RESPOND 
1801 012234 000571 BR SIZEJ ‘BRANCH TO SIZE JUMPER TEST 
1802 012236 013737 172354 172352 4$: MOV KIPAR6,KIPARS :PUT PAR6 INTO PARS 
1803 012244 013737 001206 001204 MOV STMP6, STMPS [DO SAME TRANSFER 
1804 012252 042737 170000 172352 BIC #170060,KIPARS :MAKE PARS A NON UNIBUS ADDRESS 
1805 012260 042737 170000 001204 BIC #170000.$TMPS :CLEAR SAME BITS 
1806 012266 012737 173214 120600 MOV #173214.120000 :PUT RANDOM NUMBER INTO TEST LOCATION BY FAST BUS 
1807 012274 013701 140000 MOV -: 140000,R1 “READ TEST LOCATION BY UNIBUS 
1808 012300 022701 173214 CMP #173214 ,R1 ‘SEE IF DATA WAS READ PROPERLY 
1809 012304 001406 BEQ 5$ “DATA OKAY NOW VERIFY DATA PATH 
1810 012306 020001 CMP RO,R1 “SEE IF DATA CHANGED FROM FIRST READ 
1811 012310 001004 BNE 5$ “BRANCH AROUND NEXT TRY IF SO 
1812 012312 062737 000200 172354 ADD #200, KIPAR6 ‘TRY NEXT 4K BLOCK OF MEMORY 
1813 012320 077452 SOB R428 “BRANCH BACK TO TRY NEXT 4K BLOCK 
1814 012322 012701 021712 5$: MOV #PATRNS RI “LOAD ADDRESS OF BIT PATTERNS IN R1 
1815 012326 012702 140000 MOV #140000. R2 “LOAD VIRTUAL ADDRESS INTO R2 
1816 012332 012703 000007 MOV #7,R3 “DO 7 PATTERNS 
1817 012336 011112 6$: MOV (Ri), (R2) “LOAD COUNT INTO TEST LOCATION VIA U.B. 
1818 012340 021112 CMP (R1), (R2) “COMPARE COUNT WITH DATA READ 
1819 012342 001426 BEQ 7$ “BRANCH IF DATA MATCHES 
1820 012344 011137 001172 MOV (R1), $TMPO “MOVE EXPECTED PATTERN TO $TMPO 


nN 7 
011257 001174 MOV (R2),STMP1 MOVE RECEIVED PATTERN TO S$TMP1 
011246 MOV (R2) ,=(SP) ove DATA ON STACK FOR DATEXT oa. USE SEQ 0091 
004737 005200 JSR PC ,DATEXT ; SUBROUTINE TO LOAD DATAOR AND DAT 
011146 MOV cat) = (SP) ;PUT PATTERN ON STACK FOR PATEXT SUBROUTINE USE 


004737 005224 JSR TEXT ;GO_ SET DATA INTO PATTOR AND PATAND 
012737 012400 001106 MOV 761$-SLPERR ;SET LOOP ON ERROR POINTER TO 61$ 


8 8 
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CKK 
TEST 5 = DATA PATH, UNIBUS TO MAIN MEMORY SEQ 0092 
1827 012376 000403 BR 62$ BRANCH OVER LOOP ON ERROR SECTION 
1828 012400 011112 61$: MOV (R1), (R2) “LOAD COUNT INTO TEST LOCATION VIA U.B. 
1829 012402 021112 CMP (R1) .(R2) : COMPARE COUNT WITH DATA READ 
1830 012404 001401 BEQ 63$ “BRANCH IF OK NOW 
1831 012406 104204 62$: ERROR +204 ;REPORT ERROR(S) ON UNIBUS DATA PATH 
1832 012410 032777 001000 166532 63$: IT #8119, aSwR SEE IF LOOP ON ERROR IS SET 
1833 012416 001370 BNE 61$ “BRANCH BACK IF §0 
1834 012420 062701 000002 7$: ADD #2,R1 “MOVE TO NEXT PATTERN 
1835 012424 077334 508 R3.6$ “DECREMENT LOOP COUNTER AND BRANCH IF NOT DONE 
1836 012426 005737 001302 TST ERRCNT “WERE THERE ANY ERRORS ON THIS TEST 
1837 012432 001403 BEQ 8$ :BRANCH IF NO ERRORS ON THIS TEST 
1838 012434 005337 001110 DEC $ERTTL “DON'T COUNT ERROR +11 AS ANOTHER ERROR 
1839 012440 104011 ERROR +11 “SUMMARY OF ERRORS ON THE UNIBUS DATA PATH 
1840 012442 005037 001312 8$: CLR CPUEXP ZERO EXPECTED CPU TRAP CONDITION 
1841 012446 023737 001204 172352 CMP $TMPS,KIPARS | :MAKE SURE PARS CONTAINS EXPECTED CONTENTS 
1842 012454 001405 BEO TST6 ::;BRANCH IF OK 
1843 012456 104030 ERROR +30 “KIPARS NOT LOADED PROPERLY = SKIPPING NEXT TEST 
1844 012460 105237 001100 INCB. so STSTNM “INCREMENT TEST POINTER TO SHOW SKIPPED TEST 
1845 012464 000137 012604 JMP TS17 “JUMP OVER NEXT TEST - DEPENDS ON PARS SET PROPERLY 
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017662 


043207 


120000 
043207 


001312 


000006 
001312 
177572 
172352 
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RELOCATE IF NOT ENABLED 


» SBTTL TEST 6 = MAP DOESN'T RELOCATE IF NOT ENABLED 


PRRERAARAARAARAARAAAHAAH HEHEHE HAEARAHRERKAKEKAEREKAAEKeeAAeeKeeeeee 


MAP DOESN'T RELOCATE IF NOT ENABLED 


:ATEST 6 


we ooneeeesee ees: 


“4 
_ 


dee Se Be Oe Be Oe Be He Be Be Se Be 


208: 


THIS TEST VERIFIES THAT THE UNIBUS MAP DOES NOT RELOCATE IF BITS 


OF MMR3 IS THE TEST ASSUMES THAT THE PREVIOUS TEST HAS 


NOT SET. 


RUN SUCCESSFULLY AND LEFT KIPAR6 POINTING TO THE FIRST UNIBUS 
MAPPING REGISTER THAT THE UNIBUS MAP WILL RESPOND TO GREATER 


THAN OR EQUAL TO MAPREG #2. 


KIPARS IS ALSO POINTING 


TO THE 


SAME MEMORY BASE ADDRESS EXCEPT IT POINTS OVER THE FASTBUS. 
THE TEST THEN SETS ONE BIT IN EACH A.L.U. OF THE UNIBUS MAP 
AND TRIES TO REFERENCE MAIN MEMORY OVER THE UNIBUS. 


MAP IS NOT ENABLED THE LOAD WILL GO TO MAIN MEMORY UNRELOCATED. 


MmAARARAARRBARAARARARARARRLALEASLASEA RE SE EERE REE R RRS E SERRE RR RR ERE SS 


PC,PRETST 
TS17 


#B1T0 
KIPAR6,RO 


#42,(RO) 


120000 
#43207,140000 


1$ 
+12 
CPUEXP 


,208,6 
#TIMOUT , CPUEXP 
,MMRO 


KIPARS 
#021042, (RO)* 


:G0_ SET UP ahi ba DATA 
;DATA_USED BY PRETST 

MIGHT TIME OUT OVER UNIBUS 
; TURN MEMORY MANAGEMENT BACK 


PUT UNIBUS ADDRESS ) at REGISTER IN RO 


;RIGHT SHIFT RO 5 PLACES 
;CLEAR UPPER BYTE 

sMAKE KIPARS ACCESS' THE FAST 
;SET BOTTOM BIT IN EACH aa 
;SET BOTTOM BIT IN EACH ALU 
;CLEAR TEST LOCATION VIA FAST 


SINCE THE 


ON 


BUS 


BUS 


;LOAD TEST LOCATION VIA UNIBUS 


;THIS LOAD SHOULD NOT BE RELO 


:BY THE UNIBUS MAP, SINCE BITOS OF MMR3 IS CLEAR. 


READ TEST LOCATION VIA FAST 
SEE IF DATA MATCHES 
;BRANCH IF DATA GOOD 
MAP RELOCATED WHEN NOT ENABL 
;ZERO EXPECTED CPU TRAP CONDI 


CATED 
BUS 


ED 
TION 


SEG 0093 


CKKUABO 11/44 UBI MAP 
TEST 7 = SIZE JUMPER LOCATION TEST 


1888 


012604 


1896 012652 
1897 012654 
1898 012656 
1899 012660 
1900 012664 
1901 012672 
1902 012700 
1903 012704 
1904 012712 
1905 012716 
1906 012724 
1907 012732 
1908 012736 
1909 012740 
1910 012744 
1911 012746 
1912 012754 
1913 012756 
1914 012760 
1915 012764 
1916 012770 
1917 012772 
1918 013000 
1919 013006 
1920 013014 
1921 013016 
1922 013022 


000004 
004737 
013440 


012737 


D0 8 
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017662 
012620 


000020 


020000 


006162 
000040 


005046 
021616 
177400 
010000 
021654 
001172 
172350 
170000 


001270 
170000 


000007 
001312 


172516 
177572 


172350 


001172 
005120 


172350 


001264 
001254 
001254 


001260 


-SBTTL 


TEST 7 = SIZE JUMPER LOCATION TEST 


pee eeeerenereeerereerererereerereeterenenenerareeeKeeeeeeReeeeee 


;*TEST 7 SIZE JUMPER LOCATION TEST 
;* 


‘e 
-« 
-* 
:* 
-@« 
‘* 
:* 
-® 
i§ 


Sat Res te So Ge Re tee Se 


17: 


2$: 


3$: 


THIS TEST DETERMINES THE SETTING OF THE JUMPERS ON THE UNIBUS 

MAP WHICH wt THE MAP TO RESPOND TO THOSE ADDRESSES BETWEEN 

THE JUMPER RANGE. THE DEFAULT SETTING ALLOWS THE MAP TO RESPOND 

TO ADDRESSES “300600 - 757776 ON THE UNIBUS. IF THE JUMPERS ARE 

NOT SET IN THEIR DEFAULT POSITION AN INFORMATIONAL MESSAGE IS GIVEN. 
>>>>>>>>>NOTE KKK KKK KKK 

THIS IS THE FIRST TEST IN WHICH THE UNIBUS MAP IS TURNED ON. 


-eeetaereee TRE RRRRRSRARRARASARASA REAR ARE RAR AAAS ARR RRA ARR RAR A LSS 


JSR PC,PRETST 3G0 SET UP PRETEST DATA 
«WORD 1S110,208,7 ;DATA USED BY PRETST 


MOV #TIMOUT,CPUEXP ;EXPECTING CPU TIME _— 


MOV #$DDW0,RS :PUT ADDRESS OF $DDWO I 

MOV #MAPLO.RO “LOAD ADDRESS OF FIRST MAP REGISTER IN RO 

MOV #40,R1 :DO ALL 40 REGISTERS 

MOV #SPECST,R2 *SET R2 TO BEGINING OF SPECIAL STACK 

MOV #20000, (RO)+  :LOAD 4K INTO LCWER 16 BITS AND 

CLR (RO) + [CLEAR THE UPPER 6 BITS 

CLR (R2)+ =CLEAR THE SPECIAL STACK LOCATION 

0B R1,1$ [BRANCH IF THERE ARE MORE TO LOAD 

MOV #SPECST,R3 *RESET SPECIAL STACK POINTER 

BIS #B1TS MARS ‘TURN ON MAP RELOCATION 

BIS #B1T0.MMRO “MAKE SURE MEMORY MANAGEMENT IS ON 

MOV #117776,R0 :THIS WILL BE USED TO SELECT PAR 4; ADDRESS 17776 
MOV #167600.KIPAR4 :LOAD MAP REGISTER 0 -200 IN KIPARG 

MOV #125252.R2 ;CONSTANT TO LOAD INTO LOCATION 19776 

MOV #-1,$TMPO “MOVE -1 TO MAP REGISTER POINTER 

MOV #-1 FTTHRU ‘INITIALIZE ONE TIME ENTRANCE FLAG IN SUBROUTINE 
JSR PC, TSTLOC :GO TO SUBROUTINE TO SEE IF LOCATION RESPONDS 
BR 3$ ‘RETURN IS HERE IF LOWEST FOUN 

JSR PC ,DSABLD :GO SEE IF REGISTER SHOULD BE DISABLED 

ERROR +214 ‘MAP REGISTER DISABLED WHEN SHOULD BE ENABLED 
CMP #177400, KIPARS :SEE IF WE ARE POINTING JUST BELOW THE 1/0 PAGE 
BNE 2$ [GO TEST NEXT MAP REGISTER IF NOT 

ERROR 13 ;FATAL ERROR 


RESTARTING PROGRAM 
JMP STAR : JUMP TO RESTART PROGRAM 

JSR PC, EWABLD :GO CHECK TO SEE it REGISTER SHOULD BE ENABLED 
ERROR +213 ‘MAP REGISTER ENABLED WHEN SHOULD BE DISABLED 
MOV STMPO,MMRLOW §§ :MOVE REGISTER NUMBER FOUND USEABLE TO MMRLOW 
MOV KIPARG, LOWEST | :MOVE LOWEST USEABLE REGISTER TO LOWEST 

CMP #170006, LOWEST :SEE IF LOWEST REGISTER FOUND WAS THE LOWEST 
BEO 38 ‘BRANCH AROUND SETUP IF IT WAS 

CLR ‘MAP REGISTER 0 IS LOWEST FOR UN!BUS MEMORY 
MOV HF 75000, UBMLOw ‘MOVE PAR VALUE OF UB MEMORY TO UBMLOW 


SEQ 0094 


— 8 
001272 MOV STMPO,UBRHI :MOVE TT ita NUMBER FOUND USEABLE TO UBRHI 


013757 091172 
005337 001272 DEC UBRHI ;POINT IT AT HIGHEST UB MEMORY a a SEQ 0095 
013737 172350 001262 MOV KIPAR4 ,UBMHI :MOVE KIPAR4 TO UNIBUS MAP HIGHEST 

62737 000200 001262 SUB #200 ,UBMHI *;SUBTRACT 200 FROM IT TO POINT TO wast USEABLE UBMEM PAGE 
012737 177400 001256 MOV #177400 ,HIGEST MOVE HIGHEST REGISTER TO HIGEST A 

012737 000031 001266 MOV #31, MMRHI ;POINT TO LAST USEABLE MAP REGISTER, 


F 8 
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TEST 7 = SIZE JUMPER LOCATION TEST SEQ 0096 
1929 013072 000474 BR 11$ ‘3 TYPE MESSAGE OF NON-DEFAULT INFORMATION 
1930 013074 022737 177400 172350 4$: cMP #177400, KIPAR4 ;SEE IF ALL MA® REGISTERS HAVE BEEN TRIED 
1931 013102 001411 BEQ 6$ ~ BRANCH IF ALL ARE DONE 
1932 013104 004737 021654 JSR PC,ENABLD _ GO SEE IF MAP REGISTER SHOULD BE ENABLED 
1933 013110 104213 ERROR +213 ; MAP REGISTER ENABLED WHEN SHOULD of ee 
1934 013112 004737 005046 5$: JSR PC, TSTLOC ;GO TO SUBROUTINE TO SEE IF IT RESP 
1935 013116 000766 BR 4$ ;RETURN IS HERE IF IT WAS LOADED 
1936 013120 004737 021616 JSR PC ,DSABLD :RETURN IS HERE IF NOT LOADED - GO SEE IF 
1937 ;REGISTER SHOULD BE DISABLED 
1938 013124 104214 ERROR +214 :MAP REGISTER DISABLED WHEN SHOULD BE ENABLED 
1939 013126 013737 001172 001266 68: MOV STMPO ,MMRHI ;MOVE REGISTER FOUND TO MMRHI 
1940 013134 005337 001266 DEC MMRH I ;DECREMENT THIS VALUE = IT IS ONE TOO MANY 
1941 013140 013737 172350 001256 MOV KIPARS,HIGEST ;:MOVE FIRST UNUSABLE rg 1 HIGEST 
1942 013146 023727 001256 177400 CMP HIGEST,#177400 ;SEE IF UPPER JUMPER IS DEFA 
1943 013154 001505 BEQ 16$ ;BRANCH AROUND MESSAGE TYPEOUT. IF IT IS DEFAULT 
1944 013156 013737 001256 001260 7$: MOV HIGEST,UBMLOW ;MOVE UPPER LIMIT TO UBMLOW LOCATION 
1945 013164 062737 000200 001260 ADD #200 ,UBMLOW ;POINT UBMLOW TO FIRST USABLE UNIBUS MEM PAGE 
1946 013172 013737 001172 001270 MOV $TMPO ,UBRLOW :MOVE REGISTER NUMBER TO UBRLOW 
1947 013200 000407 BR 9$ ;BRANCH OVER CHECK FOR NON-EXISTENT LOCATION 
1948 013202 022737 177400 172350 8$: CMP #177400,KIPAR4 ;SEE IF WE ARE POINTING JUST BELOW THE 1/0 PAGE 
1949 013210 001407 BEQ 10$ GO INITIALIZE UBMHI IF WE ARE 
1950 013212 004737 021616 JSR PC ,DSABLD ;GO SEE IF LOCATION SHOULD BE DISABLED 
1951 013216 104214 ERROR +214 ;MAP REGISTER DISABLED WHEN SHOULD BE ENABLED 
1952 013220 004737 005046 9$: JSR PC, TSTLOC :GO TO SUBROUTINE TO SEE IF IT DOESN'T RESPOND 
1953 013224 000401 BR 10$ + RETURN IS HERE IF IT WAS LOADED - GO INITIALIZE UBMHI 
1954 013226 000765 BR 8$ RETURN IS HERE IF NOT = GO BACK FOR ANOTHER TRY 
1955 013230 10$: sAT THIS POINT, — POINTS JUST ABOVE HIGHEST ADDRESS OF UNIBUS MEMORY 
1956 013230 004737 021654 JSR PC — :GO SEE IF MAP REGISTER SHOULD BE ENABLED 
1957 013234 104213 ERROR +24 :MAP REGISTER ENABLED WHEN SHOULD BE DISABLED 
1958 013236 013737 172350 001274 MOV KIPAR4,BUPWIN :MOVE THIS VALUE TO ‘'B'EGINING ‘UP'PER ‘WIN'DOW 
1959 013244 013737 172350 001262 MOV KIPAR4 ,UBMHI ;MOVE THIS TO UBMHI ALSO 
1960 013252 013737 001172 001272 MOV STMPO,UBRH1 :MOVE MAP REGISTER POINTER TO UBRHI 
1961 013260 005337 001272 DEC UBRHI :DECREMENT THIS VALUE - IT IS ONE TOO MANY 
1962 013264 005737 020022 118: TST SPASS ;SEE IF THIS IS FIRST PASS 
1963 013270 001037 BNE 16$ ;BRANCH TO NEXT SECTION IF FIRST PASS 
1964 013272 104400 006422 TYPE , JMPMSG ;TYPE SIZE JUMPERS NOT IN DEFAULT - FOR INFO ONLY 
1965 013276 072700 006120 MOV #OTMS,RO :SET UP MESSAGE POINTER 
1966 013302 012746 013316 MOV #12$,-(SP) ;PUSH RETURN ON THE STACK 
1967 013306 010046 MOV RO,-(SP) ;PUSH RO ON THE STACK 
1968 013310 010146 MOV R1,-(SP) ;PUSH R1 ON THE STACK 
1969 013312 000137 002214 JMP TYPDAT ;GO TYPE THE DATA 
1970 013316 104400 001221 12$: TYPE - SCRLF ;TYPE A <CRLF> 
1971 013322 104400 001221 TYPE » SCRLF TYPE ONE MORE <CRLF> 
1972 013326 022703 006162 CMP #SPECST,R3 ;SEE IF ANY TIMEOUTS OCCURED 
1973 013332 001416 BEQ 16$ ;BRANCH TO NEXT SECTION IF NONE 
1974 013334 104400 006262 TYPE . TOMSG ;TYPE THE TIMEOUTS MESSAGE 
1975 013340 012703 006162 MOV #SPECST,R3 RESET R3 
1976 013344 014346 13$: MOV ~(R3),- CSP) ;PUSH THE REGISTER # ONTO THE STACK IN ORDER IT WAS PUSHED 
1977 013346 104410 14$: TYPDS ; TYPE THE — IN DECIMAL, LEADING ZEROS SUPPRESSED 
1978 013350 104400 001221 TYPE - SCRLF :TYPE A <CRLF 
1979 013354 005743 TST -(R3) SEE IF THERE. IS ANOTHER REGISTER NUMBER TO PRINT 


G 8 


1980 015356 001402 BEQ 15$ ;BRANCH AROUND SETUP IF NONE 

1981 013360 011346 MOV (R3),=<SP) ;PUSH THIS NUMBER ON THE STACK SEQ 0097 
1982 013362 000771 BR 14% ;BRANCH BACK TO PRINT IT 

bet, 013364 104400 001221 15$: TYPE ,ScRLf : TYPE ONE MORE <CRLF> 


1985 7° SETUP POINTERS TO THE LOWEST AND THE HIGHEST USABLE 
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1986 se MAPPING REGISTERS TO CONTINUE WITH TEST. 
1988 013370 005037 001312 16$: CLR CPUEXP :NO CPU TRAPS EXPECTED IN THIS SECTION 
1989 013374 010546 MOV RS,-(SP) “SAVE RS 

1990 01337 013705 001254 MOV LOWEST,RS ‘MOVE PAR DATA He rf FOR CONVERSION 

1991 013402 042705 170000 BIC #170006,R5 “CLEAR BITS 15 TO 12 

1992 013406 072527 177773 ASH #-5, RS SHIFT INDICATOR “sits TO THE RIGHT 5S PLACES 
1993 013412 052705 170200 Bis #176200,R5 [FORM ADDRESS 

1994 013416 010537 001276 MOV RS, LREGL ?SAVE RESULTS 

1995 013422 012605 MOV (SP)+,R5 sRESTORE RS 

1996 013424 013737 001276 001300 MOV LREGL,LREGU *MOVE ADDRESS TO LREGU 

1997 013432 062737 000002 001300 ADD #2, LREGU sPOINT TO UPPER 6 BITS OF MAP REG 


_ --- NS  — —— 


SEQ 0098 
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TEST 10 = ENSURE THAT THERE 1S NO DUAL MAPPING SEQ 0099 


2016 -SBTTL TEST 10 = ENSURE THAT THERE IS NO DUAL MAPPING 
FARRAR AKER KHEKAKAA ALAA eee ee KeAKeHeeeAKeeKetereKeteneeeetreLeLes 
TeTEST 10 ENSURE THAT THERE IS NO DUAL MAPPING 
** 
it THIS TEST VERIFIES THAT THERE IS NO DUAL MAPPING. IT CLEARS 
i ALL THE MAP REGISTERS EXCEPT THE ONE UNDER TEST, AND LOADS 
| i THAT ONE WITH 00040000. IF MAP RELOCATION IS ENABLED (AND 
| : IN THIS TEST IT IS), SUBROUTINE CLRMAP CLEARS ALL BUT THE 
| :* LOWER 16 BITS OF MAPL1, AND LOADS 20000 THERE. THIS IS SO 
| i THAT APT, IF CONTROLLING THIS DIAGNOSTIC, CAN STILL EXAMINE 
i THE PROPER LOCATIONS. THE TEST THEN USES A VIRTUAL ADDRESS 
i* TO SELECT THAT MAP REGISTER AND ADD 17776, SO THAT IT SHOULD 
| :* REFERENCE ADDRESS 00057776 (00037776 IF MAPL1 CONTAINS 20000 
AS PER CONDITIONS DESCRIBED ABOVE). A REFERENCE !S MADE THROUGH 
ye EACH OF THE REGISTERS AND ANY THAT FETCH THE CORRECT DATA ARE 
: CHECKED TO SEE THAT IT WAS THE MAP REGISTER UNDER TEST. IF 
i* NOT, BOTH THE MAP REGISTER UNDER TEST AND THE DUALED REGISTER 
:* ARE REPORTED. 
:* 
t Reeeeeneeeeeeeeeeeeeeeeenteetereeeeeneeteneneetereeeeeenenenede 
013440 75110: 
013440 000004 SCOPE 
013442 004737 017662 JSR PC PRETST :GO SET UP PRETEST DATA 
013446 014130 013606 000010 . WORD Tsi11, 208,10  :DATA USED BY PRETST 
2017 013454 005037 172516 CLR MR3 CLEAR MMR3 
2018 013460 052737 000060 172516 Bis #60, MARS ENABLE 22-BIT ADDRESSING AND MAP RELOCATION 
2019 013466 004737 004352 JSR PC, CLRMAP CLEAR ALL MAP REGISTERS 
2020 013472 042737 000001 177572 BIC #1 WHRO [TURN OFF MEMORY MANAGEMENT 
2021 013500 005037 001172 CLR $TMPO :$TMPO IS USED AS A FLAG IN THIS TEST 
2022 013504 012703 117776 MOV —s-#117776,, R3 SELECT P.A.R. 4 OFFSET OF 17776 
2023 013510 013702 001276 MOV LREGL,R2 :PUT ADDRESS OF LOWEST USABLE MAP REGISTER IN R2 
2024 013514 013700 001254 MOV LOWEST ,RO LOAD PAR POINTING TO MAP REGISTER UNDER TEST IN RO 
2025 013520 052737 000001 177572 BIS #1 ,MMRO “MAKE SURE MEMORY MANAGEMENT 1S ON 
2026 013526 005037 001302 CLR ERRCNT CLEAR THE ERROR COUNT FOR ERROR 202 BELO 
2027 013532 013737 001254 172350 1%: MOV LOWEST,KIPARG  :PAR OF LOWEST USEABLE MAP REGISTER IS LOADED IN KIPARG 
2028 013540 022702 170204 CMP = #MAPLOT,R2 SEE IF WE ARE POINTING AT MAPL1 
2029 013544 001003 BNE 13$ BRANCH IF NOT 
2030 013546 022712 020000 CMP =: #20000, (R2) SEE if IT CONTAINS 20000 (FOR APT USE) 
2031 013552 001405 BEQ 14$ BRANCH IF SO 
2032 013554 012712 040000 13$: MOV #40000, (R2) LOAD MAP REGISTER UNDER TEST WITH 8K BASE 
2033 013560 010237 057776 MOV —sR2, 57776 [LOAD TEST LOCATION WITH THE ADDRESS 
2034 OF THE MAP REGISTER UNDER TEST 
2035 013564 000402 BR 15$ BRANCH OVER LOCATION SETU 
2036 013566 010237 037776 14$; MOV —-R2, 37776 [LOAD TEST LOCATION WITH THE ADDRESS 
2037 OF THE MAP REGISTER UNDER TEST 
2038 013572 162737 000200 172350 15$: SUB = #200, KIPAR4 “PREPARE KIPAR4 FOR FIRST "ADD 200° 
2039 013600 062737 000200 172350 21$: ADD #200. KIPAR4 TRY NEXT MAP REGISTER 
2040 013606 005037 001314 208: CLR PCPUER CLEAR THE ERROR RECEIVER 
2041 013612 011304 MOV (R3) RG ;READ THROUGH THE WAP REGISTER 
2042 013614 005737 001314 TST PCPUER SEE IF THERE WAS AN ERR 
2043 013620 001023 BNE “BRANCH AROUND DATA TEST IF SO 
| 
| 


2044 015622 


2049 013640 


020402 


013746 


172350 


001200 
172356 


R4,R2 
4$ 
RO, KIPARG 


(R3) ,STMP3 
KIPAR7,=-(SP) 


;SEE IF gen By WAS FETCHED 
BRANCH IF NO MATCH 

;SEE IF MAP REGISTERS ARE THE SAME 

SBRANCH IF CORRECT MAP REGISTER WAS USED 
;SAVE CONTENTS FOR ERROR PRINTING 

:PUT PAR ON STACK FOR SUBROUTINE ADREXT USE 


SEQ 0100 
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‘TEST 10 = ENSURE THAT THERE IS NO DUAL MAPPING SEQ 0101 
2050 013644 010246 MOV R2,-(SP) sPUT ADDRESS OF REGISTER ON STACK FOR ADREXT USE 
2051 013646 004737 005250 JSR PC -ADREXT GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 
2052 013652 010246 MOV R2,-(SP) :PUT ADDRESS OF REGISTER ON STACK FOR DATEXT USE 
2053 013654 004737 005200 , JSR PC DATEXT [GO SET DATA IN DATAOR AND DATAND 
2054 013660 104210 ERROR +210 [DUAL MAPPING ERROR IN THE UNIBUS MAP 
2055 013662 000402 BR 4S :BRANCH AROUND ADDRESS MATCH SETTING 
2056 013664 005237 001172 3$: INC $TMPO :SET FLAG WHEN ADDRESSES MATCH 
2057 013670 022737 177400 172350 4$: CMP #177400, KIPAR4 ;SEE IF LAST REGISTER HAS BEEN TRIED 
2058 013676 001423 BEQ 6$ ‘BRANCH TO CONTINUE IF SO 
2059 013700 023737 001256 172350 CMP HIGEST,KIPARG :SEE IF ALL HAVE BEEN TRIED 
2060 013706 001334 BNE 21$ :BRANCH IF STILL MORE TO TRY 
2061 013710 062737 000200 172350 5S: ADD #200 ,KIPARG :MAP TO NEXT MAP REGISTER 
2062 013716 022737 177400 172350 CMP #177400, KIPAR4 ;SEE IF WE ARE AT THE TOP 
2063 013724 001410 BEQ 6$ :BRANCH TO CONTINUE IF SO 
2064 013726 023737 001274 172350 CMP BUPWIN,KIPARG :SEE IF WE ARE POINTING 70 THE UPPER WINDOW START 
2065 013734 001365 BNE 5$ “BRANCH BACK FOR ANOTHER INCREMENTING SET IF NOT 
2066 013736 162737 000200 172350 SUB #200, KIPARG :PREPARE FOR THE ‘ADD 200° 
2067 013744 000720 BR 20$ :GO BACK FOR A NEW TRY 
2068 013746 005737 001172 6$: TST $TMPO [SEE THAT THERE WAS a SUCCESSFUL MATCH 
2069 013752 001017 BNE 7$ SBRANCH IF THERE W 
2070 013754 010005 MOV RO,RS [MOVE RO TO R5 FOR NPREPARATION AND SHIFTING 
2071 013756 042705 170000 BIC #170000,R5 :CLEAR THE UPPER 4 BITS 
2072 013762 072527 177773 ASH #-5,R5 :SHIFT RIGHT 5 PLACES 
2073 013766 062705 170200 ADD #176200,R5 [FORM LOWER 16 BITS OF PHYSICAL ADDRESS OF MAP REGISTER 
2074 013772 010537 006144 MOV R5,EADRES ‘MOVE THE OBTAINED ADDRESS TO THE ERROR LOCATION 
2075 013776 013746 172356 MOV KIPAR7,-(SP) | :PUT PAR ON STACK FOR SUBROUTINE ADREXT USE 
2076 014002 010246 MOV R2,-(SP) [PUT ADDRESS OF REGISTER ON STACK FOR ADREXT USE 
2077 014004 004737 005250 JSR PC ADREXT :GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 
2078 014010 104210 7 ERROR +210 :DUAL MAPPING ERROR IN THE UNIBUS MAP 
2079 014012 005037 001172 7$: CLR $TMPO :CLEAR FLAG FOR NEXT REGISTER 
2080 014016 022702 170204 CMP #MAPLO1,R2 :SEE IF R2 1S POINTING TO MAPL1 
2081 014022 001006 BNE 75$ :BRANCH IF NOT 
2U82 014024 022712 040000 CMP #40000, (R2) :DOES MAPL1 CONTAIN 40000? 

2083 014030 001403 BEQ 75$ :BRANCH IF IT DOES 

2084 014032 005037 037776 CLR 37776 SCLEAR LOCATION 37776 ONLY - MAPL1 IS TO BE LEFT ALONE 
2085 014036 000401 BR 76$ TSKIP OVER REGISTER CLEAR STEP 

2086 014040 005012 75$: CLR (R2) SCLEAR MAP REGISTER JUST TESTED 

2087 014042 062700 000200 76$: ADD #200,R0 :POINT TO NEXT MAP REGISTER UNDER TEST 
2088 014046 062702 000004 ADD #6 RO =POINT TO NEXT MAP REGISTER TO LOAD 
2089 014052 022700 177400 CMP #177400,R0 SEE IF LAST REGISTER HAS BEEN TRIED 
2090 014056 001416 BEQ 9$ SBRANCH TO NEXT SECTION IF SO 

2091 014060 023700 001256 CMP HIGEST,RO [SEE IF ALL MAP REGS HAVE BEEN TESTED 
2092 014064 001222 BNE 1$ ;BRANCH IF STILL MORE TO TEST 

2093 014066 062700 000200 8$: ADD #200,R0 :POINT TO NEXT MAP REGISTER UNDER TEST 
2094 014072 062:02 000004 ADD #4,R2 :POINT TO NEXT MAP REGISTER TO LOAD 
2095 014076 022700 177400 CMP #177400,R0 :SEE IF LAST REGISTER HAS BEEN TRIED 
2096 014102 001404 BEQ 9$ :BRANCH TO NEXT SECTION IF SO 

2097 014104 020037 001274 CMP RO, BUPWIN :SEE IF WE ARE POINTING TO UPPER WINDOW START 
2098 014110 001366 BNE 8$ [BRANCH FOR ANOTHER INCREMENT SET IF N 
2099 014112 000607 BR 1$ [BRANCH BACK FOR ANOTHER RUN 

2100 014114 005737 001302 9$: TST ERRCNT :SEE IF THERE WERE ANY ERRORS 

2101 014120 001403 BEQ TST11 ;;BRANCH TO NEXT TEST IF NO ERRORS 

2102 014122 005337 001110 DEC SERTTL :DON'T COUNT ERROR +16 AS ANOTHER ERROR 
2103 014126 104016 ERROR +16 [SUMMARY OF DUAL MAPPING ERRORS 
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TEST 11 = LOAD LOC'S 40000-77776 WITH THEIR ADRES'S SEQ 0102 
2112 .SBITL TEST 11 = LOAD LOC'S 40000-77776 WITH THEIR ADRES'S 
FERRARA EAEEAAAA EAA AA EAA EAERAAAAAAAAHAAAERAHEHERERAAAEEAEE 
SeTEST 11 LOAD LOC'S 40000-77776 WITH THEIR ADRES'S 
** 
ie THIS TEST IS USED TO LOAD MAIN MEMORY FROM ADDRESS 00040000 TO 
:* ADDRESS 000077776 WITH ITS OWN ADDRESS. IT THEN CHECKS THAT 
te MEMORY OVER THE UNIBUS AND LOGS ANG REPORTS ANY ERRORS THAT 
it IT FINDS. 
** 
+ ReReeeeeeneeeeteeeeeeeeeeteeeeeneteneeeeteertereneetereeereete 
014130 TST11: 
014130 000004 SCOPE 
014132 004737 017662 JSR PC, PRETST :GO SET UP PRETEST DATA 
014136 014362 014252 000011 “WORD T1S112,20$,11  :DATA USED BY PRETST 
2113 014144 042737 000040 172516 BIC #BITS.MMRS “TURN OFF MAP RELOCATION 
2114 014152 012737 000400 172350 MOV #400, KIPARG [MAP PAGE 4 TO 8K 
2115 014160 012700 040000 MOV #40060,R0 :STARTING ADDRESS FOR DATA PATTERN 
2116 014164 012701 100000 1$: MOV #100006,R1 ‘VIRTUAL ADDRESS 
2117 014170 012702 010000 MOV #4096. ,R2 “LOAD 4096 LOCATIONS AT A TIME 
2118 014174 010021 2$: MOV RO, (RIS+ ‘LOAD PHY. ADDR. INTO EACH MEMORY LOC. 
2119 014176 062700 000002 ADD #2,R0 ‘POINT TO NEXT PHYSICAL ADDRESS 
2120 014202 077204 S0B R2,2% sBRANCH IF 4K OF MEMORY NO’ LOADED 
2121 014204 062737 000200 172350 ADD #200, KIPARG :POINT TO NEXT 4K BANK OF MEMORY 
2122 014212 022737 001000 172350 CMP #1000,KIPARS § :SEE IF 16K IS LOADED 
2123 014220 101361 BHI 1$ ‘BRANCH IF MORE MEMORY TO LOAD 
** 
2125 te MEMORY FROM 8K - 16K IS NOW LOADED WITH ITS OWN ADDRESS 
** 
2127 014222 022737 171000 172354 CMP #171000,KIPAR6 ;DID I USE ANY MAP REGISTER 
2128 ‘BELOW REGISTER 6 (UB. ADDR 100000) 
2129 014230 101454 BLOS —-TST12 > ;BRANCH TO NEXT TEST IF NOT 
2130 014232 013700 172354 MOV KIPAR6,RO ‘LOAD PAR6 INTO RO TO GET 
2131 sTHE STARTING DATA PATTERN 
2132 014236 072027 000006 ASH #6,R0 :RO NOW HOLDS THE STARTING DATA PATTERN 
2133 014242 012701 140000 3$: MOV #140000,R1 ‘STARTING VIRTUAL ADDRESS 
2134 014246 012702 010000 MOV #4096. ,R “PREPARE TO READ 4K AT A TIME 
2135 014252 011103 20$: MOV (R1) R38 “READ MAIN MEMORY THROUGH UNIBUS 
2136 014254 020003 CMP RO,RS ‘SEE IF THE ADDRESSES MATCH 
2137 014256 001015 BNE 6$ ‘BRANCH IF ERROR 
2138 014260 062701 000002 5$: ADD #2,R1 “CHANGE VIRTUAL ADDRESS 
2139 014264 062700 000002 ADD #2,R0 :CHANGE PHYSICAL ADDRESS 
2140 014270 077210 SOB R2, 208 “BRANCH IF 4K OF MEMORY NOT READ 
2141 014272 062737 000200 172354 ADD #200 ,KIPAR6 ‘POINT TO NEXT BANK OF 4K THROUGH UNIBUS 
2142 014300 022737 171000 172354 CMP #171000, KIPAR6 :SEE IF THIS POINTS TO 16K PLUS 2 
2143 014306 101355 BHI 3$ ‘BRANCH IF 16K OF MEMORY NOT CHECKED 
2144 014310 000416 BR 10$ :TEST FINISHED, BRANCH TO EXIT 
2145 014312 013746 172344 6$: MOV KIPAR2,-(SP) | :PUT PAR ON STACK FOR ADREXT SUBROUTINE USE 
2146 014316 010046 MOV RO,-(SP) ‘PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINC USE 
2147 014320 004737 005250 JSR PC ADREXT :GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 
2148 014324 010346 MOV R3.-(SP) “PUT DATA ON STACK FOR DATEXT SUBROUTINE 
2149 014326 004737 005200 JSR PCDATEXT ‘SUBROUTINE TO LOAD DATAOR AND DATAND 


ee 


2150 014332 010357 006150 MOV R3,EADRS2 

2151 014336 005037 006152 CLR EADRS2+2 
| 2182 014342 9104205 ERROR +205 

2153 014344 000745 BR ioe 

2154 014346 005737 001302 108: TST ERRCNT 

2155 014352 001403 BEQ TST12 


;MOVE DATA IN R3 TO okie — ERROR CALL 
;CLEAR UPPER 6 BITS TO P 

DIDN'T -— ADDRESSES CORRECTLY FROM UNIBUS 
;CONTINUE TESTING 

[WERE THERE ANY ERRORS ON THIS TEST? 
>;BRANCH IF NO ERRORS ON THIS TEST 


SEQ 0103 


CKKUABO 11/44 UBI MAP MACRO M1113 05-NOV-80 14: ” PAGE 70-1 
TEST 11 = LOAD LOC'S 40000-77776 WITH THEIR ADRES'S 


[ 
| 
| 2156 014354 005337 001110 DEC SERTTL 
| 2157 014360 104014 ERROR +14 


nN 8 
SEQUENCE 84 


;DON'T COUNT ERROR +14 AS ANOTHER ERROR 
; SUMMARY OF UNIBUS ADDRESS FAILURES 


SEQ 0104 


e--o 


CKKUABO 11/44 UBI MAP 


2166 


WN $9 DONOUF WE Oo OOn 


SON 


CoOoCCoooooooo 


POPIPOPIPOPYAPIMPMPOPINPIPERE WPM PTE NPIPM POPE PNP nonofnono nor 
MPwnN— 


ee ee ee aed at wd a 


SSSQE SS CSS SSA PSS ES sales VFN ASSS= 


000004 


000452 
005737 


013703 


022737 


000207 


MACRO M1113 05-NOV-80 14:09 PAGE 71 
TEST 12 = MAIN MEMORY TIMEOUT THROUGH MAP 


017662 


014420 


001202 
000002 


100000 


000020 
007774 
001302 


000001 


000062 
001312 


0000 
1725 


—— 
an 


001314 


001202 


8 9 
SEQUENCE 85 
SEQ 0105 


-SBTTL TEST 12 = MAIN MEMORY TIMEOUT THROUGH MAP 


SP RRA AAEEAEETARAAAAAAARATAAAAAKEATAARAERAAAAAAKAAKEKAHAKAAAAAHEe 


TeTEST 12 MAIN MEMORY TIMEOUT THROUGH MAP 
*® 
;* THIS TEST GENERATES A TIME OUT THROUGH THE UNIBUS MAP BY TRYING 
:* TO REFERENCE ADDRESS 17000000 IN MAIN MEMORY. IT USES THE LOWEST 
;* USABLE MAP REGISTER, WHICH IN THE DEFAULT CASE IS MAP REGISTER 
** 6 
** 
+ Ree eeeeeReeeHeeeeeeeeeeeeteeeteneneneeneeneeeeneeeeeeeneeetere 
T$T12 
SCOPE 
JSR PC, PRETST :GO SET UP PRETEST DATA 
“WORD TST13,208 [DATA USED BY PRETST 
BIS #BITS.MMRS ‘TURN MAP RELOCATION BACK ON 
CLR STMPG ‘CLEAR $TMP4 FOR ERROR LOOP INDICATOR 
20$: JSR PC.MMTOTM [GO DO TEST BELOW 
ERROR +15 SRETURN HERE IF ERROR - UNIBUS DID NOT TIME OUT 
R TST13 *;SKIP OVER THIS PORTION OF THE TEST 
MMTOTM: TST STMP4 :SEE IF THIS ENTRY IS FROM ERROR LOOPING 
BEQ 1$ ‘BRANCH IF NOT 
ADD #2,SP ‘CLEAN EXTRA RETURN OFF STACK 
1$: CLR ERRCNT ‘CLEAR ERRCNT FOR THIS TEST 
MOV #TIMOUT,CPUEXP EXPECTING TIMEOUT IN THIS TEST 
MOV LOWEST, KIPAR4 :LOAD PAR 4 WITH LOWEST USABLE MAP REG 
MOV #74, aLREGU :LOAD UPPER 6 BITS OF LOWEST MAP REG 
CLR @LREGL ‘LOAD LOWER 16 BITS OF LOWEST MAP REG 
20$: CLR PUER :CPU ERROR REGISTER LOCATION 
MOV 100000,R3 ‘TRY TO READ THROUGH PAGE 4 THIS REFERENCE WILL GO OUT 
:ON THE UNIBUS TO SELECT THE LOWEST USABLE MAP REGISTER (DEFAULT MAP REG. 0). PHYSICAL 
‘ADDRESS 17700000 1S THEN GENERATED, WHICH SHOULD TIME OUT SINCE IT IS THE FIRST 
[NON-EXISTENT LOCATION. 
CMP #TIMOUT,PCPUER ;THE UNIBUS SHOULD HAVE TIMED OUT 
BEQ 3$ ‘BRANCH IF CONDITION WAS CORRECT 
TSTB. = CPUTYP ‘1S THIS AN 11/44? 
BEQ 2$ ‘BRANCH IF IT IS 
TST ERRCNT ‘SEE IF A TIMEOUT WAS REPORTED 
BNE 3$ ‘BRANCH IF SO 
2$: MOV (SP) ,-(SP) “PUSH ANOTHER RETURN ONTO THE STACK FOR POSSIBLE ERROR LOOP 
MOV #1, $TMP4 >SET ERROR LOOP FLAG 
RTS PC EXIT 
3$: ADD #2, (SP) ‘CORRECT RETURN PC OVER ERROR CALL 
CLR CPUEXP ‘NO CPU TRAPS EXPECTED FOR AWHILE 
RTS PC ZEXIT 


‘CKKUABO 11/44 UBI MAP 


2208 


4572 000774 


14544 000004 


. 
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TEST 13 = RELOC USING LOWEST USABLE MAP REG THRU UNIBUS 


017662 
014560 000013 
001202 
005404 


» SBTTL TEST 13 = RELOC USING LOWEST USABLE MAP REG THRU UNIBUS 


PRRARAAAHRERAAAHHAHAEAAAE HATHA HeeAeeeAKeteKeeteeKeneneeeeereres 


TaTEST 13 RELOC USING LOWEST USABLE MAP REG THRU UNIBUS 


-* 
; Lay Na TEST CHECKS OUT THE FULL ADDITION PROPERTIES OF THE UNIBUS 

;@ A.L.U.. IN THE DEFAULT CASE IT USES MAP REGISTER ZERO BUT 

;@ 4 ame MAP JUMPERS HAVE BEEN ALTERED TO DE- artes SOME MAP REGISTERS 
THIS TEST WILL USE THE LOWEST USABLE MAP REGISTER 

;@ IF AN ERROR OCCURS THE TEST WILL REPORT THE PHYSICAL ADDRESS 
* 

-* 

§ 


: THAT WAS DESIRED, AND THE DATA AT THE ADDRESS THAT WAS REFERENCED. 
= RARER HAAAAAAEAATRAEAREREREEERERARARERAARAEAAARAAEREEHRARAAREAAAAEEE 
TS113: 

SCOPE 

JSR PC ,PRETST :G0 SET UP PRETEST DATA 

«WORD 15114,208,13 | ;DATA USED BY PRETST 
20$: CLR STMP4 :CLEAR $TMP4 = FLAG USED FOR ERROR RETURN 
1$: JSR PC ,MAPADD :GO DO THE TEST 

ERROR +211 sRETURN IS HERE FOR ERROR 

BR 1$ ‘GO BACK TO THE SUBROUTINE 


SEQ 0106 


r 


CRRUABO 11/44 UBI MAP 


2221 


000004 
004737 


014624 
0 


000774 
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TEST 14 = CARRY PROP OF MAP'S 


017662 


014610 000014 


001202 
005632 


S RELOC ADDER THRU UNIBUS 


SEQ 0107 


» SBTTL TEST 14 = CARRY PROP OF MAP'S RELOC ADDER THRU UNIBUS 


SERRA HAAHEH ARATE EEARAAAAAAAERAKEAAAAAARAEARAKERAAAeHeeHEReeeAeete 


CARRY PROP OF MAP*S RELOC ADDER THRU UNIBUS 


EVERY ADDRESS OF THE FORM ug 8 IS GENERATED HERE STARTING 


HAT IS, THE FIRST OF EVERY 2k 
SSED, TO INSURE THAT THE ADDER IN THE MAP IS 


MARA ARALAARAARARARARASRARASESERALAELESE EERE RSE RRR R SERRE RRR RR REESE ES 


SeTEST 14 
te 

** 

;t WITH 00030000 UP TO 17000000. 
;* WORDS IS ADDRE 

;* WORKING PROPERLY . 

-* 

iST14: SCOPE 


JSR PC,PRETST 


;GO SET UP PRETEST DATA 


PITTIIITTLILITITILITTTILI TILL TILT TITLE iti Tiii ttt iti 


; + IMPORTANT #* 


IF THE POSITION OF THIS TEST IS CHANGED, CHANGE THE THIRD 


WORD BELOW TO THE NEW TEST NUMBER THIS TEST WILL OCCUPY. 


NEXMEM=B1T5 


CLR STMP4 
JSR PC, TCPMRA 
+211 


1$ 


AAA ARRRA ARERR RRRARRRRSALARRLSLE SELES E LASERS SERRE SERRE SERRE RSS 


-WORD  2%,208,14 


;DATA_USED BY PRETST 

:BITOS IS NON-EXISTENT MEMORY BIT IN THE CPU ERROR REGISTER 
CLEAR $TMP4 - —_— AS AN ERROR RETURN FLAG 

:G0 DO THE TEST 

;RETURN IS HERE 1F AN ERROR 

;RETURN TO THE TEST 


CKKUABO 11/44 UBI MAP 
‘UNIBUS MAP SETTUP 


014624 000004 
014626 104420 


14630 013701 


AAAS MMAMNMAIVIYI 
NM OVODONOUFSWwNr— 


2266 014670 010137 
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001300 
020000 


001254 


172340 


SEQ 0108 


-SBTTL UNIBUS MAP SETTUP 


SL RRAERERAAERA AREA AAA EEE E REET E REE AAAAAAEEAHAAREEEEEEARAREREEE AERTS 


THE NEXT 3 TESTS ARE RUN THROUGH THE UNIBUS MAP 


RRO RRRERERARAEE TTA TA TEA A TATE H KAKA TAR TeeKeAeATeTeeeeeeeeeeee 
SCOPE ;LOOP ON PREVIOUS TEST 
TBITR RESTORE T-BIT IF IT WAS ON 


SRR RAAERAAEAREEARRAEREAAERARERERAAHAAARAREAAHERHEAARARERAEREEAAKEAETE 


te THIS CODE SETS UP THE TWO MAP REGISTERS os THE LOWEST 

be USABLE ONE TO POINT TO PHYSICAL MEMORY FROM 0 = 8K. IN THE 

s* DEFAULT CASE, IN MANUFACTURING AND IF THERE IS NO UNIBUS MEMORY, 
s* THIS WILL BE MAP REGISTERS 1 AND 2. MAP REGISTER 1 WILL POINT 

he TO PHYSICAL 4K = 8K SO ‘‘ACT=11"" a“ WORK PROPERLY AND MAP 

g® REGISTER 2 WILL POINT. TO PHYSICAL 0 = 4K. THIS MEANS THAT 

7* ree SHOULD GET 170400 SO IT PUTS ADDRESSES 040000 TO 057776 

:* THE UNIBUS_AND KIPAR1 SHOULD GET 170200 SO IT PUTS ADDRESSES 
pe 020000 TO 037776 ON THE UNIBUS. 

-* 


MARR RBRERRBASLLLZASERASESER RARER ASAE ERASER RAR RRR ARERR RRR RRR RRA RDS SO | 


MOV Ht hte R1 ;PUT POINTER TO LOWEST MAP REGISTER IN R1 
TST R1) ;POINT TO LOWER 16 BITS OF LOWEST + 1 

MOV #20000, (R1)+ ;LOAD LOWER 16 BITS OF (LOWEST + 1), POINTING TO 4-8k 
CLR (R1 ;CLEAR UPPER 6 BITS OF (LOWEST + 1) 

CLR (RIDs CLEAR LOWER 16 BiTS OF (LOWEST + 2) 

CLR (R1)+ ;CLEAR UPPER 6 BITS OF (LOWEST + 2) 

MOV LOWEST,R1 ;LOAD R1 : 

ADD #200,R1 POINT R1 TO (LOWEST + 1) 

MOV R1,KIPAR1 ;LOAD PARI 

ADD #200,R1 POINT R1 TO (LOWEST + 2) 

MOV R1,KIPARO ;LOAD PARO 


eee SSS... 
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TEST 15 = MAIN MEM, T.0. ——— MAP, CODE RUN OVER U.B. 


2278 


014674 


0 
2279 014710 
2280 014714 
2281 014720 


000004 


004737 
104015 


017662 
014714 000015 
001202 
014420 


~SBTTL TEST 15 = MAIN MEM, T.0. THROUGH MAP, CODE RUN OVER U.B. 
pee eeeeeeeeeeerereeeeteeeeetereeeeeereneeentereneneerererererete 
p*TEST 15 MAIN MEM. 1.0. THROUGH MAP, CODE RUN OVER U.B. 
“* 
a7 THIS TEST GENERATES A TIME OUT THROUGH THE UNIBUS MAP BY TRYING 
3* TO REFERENCE ADDRESS 17000000 IN MAIN MEMORY. IT USES THE LOWEST 
3* im MAP REGISTER, WHICH IN THE DEFAULT CASE IS MAP REGISTER 
5* rf . 
+t 
ad THIS TEST IS BEING RUN WITH ALL MEMORY REFERENCES GOING THROUGH 
7° THE UNIBUS MAP. 
“¢ 
tee eeeeeeeeeeeeeeeeeeetereteeeeeeeenerertteteeeeeeenereneeeerees 
TST15: 

SCOPE 

JSR PC,PRETST ;GO0 SET UP PRETEST DATA 

WORD T$116,208,15 ;DATA USED BY PRETST 

CLR STMP4 ;CLEAR LOOP ON ERROR FLAG 
208: JSR PC ,MMTOTM 3G0 DO TEST ON PAGE 60 OF THIS LISTING 


ERROR +15 “RETURN HERE IF ERROR - UNIBUS DID NOT TIME OUT 


«® 


SEQ 0109 
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TEST 16 = RELOC USING LOWEST USABLE MAP REG USING MAP REG SEQ 0110 
2295 .SBTTL TEST 16 = RELOC USING LOWEST USABLE MAP REG USING MAP REG 
pp eeteearteneaeeareererereerererereeereteneeeteeenatanteeenareeeee 
:*TEST 16 RELOC USING LOWEST USABLE MAP REG USING MAP REG 
** 
it a TEST CHECKS OUT THE FULL ADDITION PROPERTIES OF THE UNI BUS 
;@ A.L.U.. IN THE DEFAULT CASE IT USES MAP REGISTER ZERO BUT 
3* IF eT MAP JUMPERS HAVE BEEN ALTERED TO DE-SELECT SOME MAP REGISTERS 
;* THIS TEST WILL USE THE LOWEST USABLE MAP REGISTER 
3@ IF AN ERROR OCCURS THE TEST WILL REPORT THE PHYSICAL ADDRESS 
* THAT WAS DESIRED, AND THE DATA AT THE ADDRESS THAT WAS REFERENCED. 
. THIS TEST Is BEING RUN WITH ALL MEMORY REFERENCES GOING THROUGH 
7* THE UNIBUS M 
** 
7 RERRAAAAARKERAKERAEEETAAKARAEHEAAARAAHEAHRETHREERAKEARKEARAAEEAREAREE EE 
614722 TST16: 
014722 000004 SCOPE 
014724 004737 017662 JSR PC, PREIS! :GO SET UP PRETEST DATA 
014730 014760 014744 000016 “WORD 15117.20%,16 :DATA USED BY PRETST 
2296 014736 012737 060000 060000 MOV #060000,060000 :MAKE SURE THAT ADDRESS 060000 
2297 CONTAINS ITS OWN ADDRESS AS DATA 
2298 014744 005037 001202 208: CLR STMP4 sCLEAR $TMP4 - USED IN ERROR RETURN 
2299 014750 004737 005404 1$: JSR PC ,MAPADD :G9 DO THE TEST 
2300 014754 104211 ERROR +211 ;RETURN IS HERE FOR ERROR 


2301 014756 000774 BR 1$ RETURN TO THE SUBROUTINE 


ee 11/44 UB] MAP 


TEST 17 = CARRY PROP OF MAP'S 


2310 


014760 


000774 


017662 
014774 000017 
001202 
005632 


9 
MACRO M1113 O5-NOV-80 14:09 PAGE 77 SEQUENCE 91 
S RELOC ADDER USING MAP REG 


» SBTTL TEST 17 = CARRY PROP OF MAP'S RELOC ADDER USING MAP REG 


FRRARAERHRARREAEREEAEAHEKTEHEKHHERAAREKERKEKAAKAKAHAeKH Ae eHAATee 


S*TEST 17 CARRY PROP OF MAP'S RELOC ADDER USING MAP REG 
-* 


e EVERY ADDRESS OF THE FORM XXxXXx0000 IS GENERATED HERE STARTING 
* WITH 00030000 UP TO 17000000. THAT IS THE FIRST OF EVERY 2k 
* WORDS IS ADDRESSED, TO INSURE THAT THE ADDER IN THE MAP IS 

* WORKING PROPERLY . 
is 


MARA BARA AA RAB AARAARRAARRASARAARRSAARE RR ARRAS RRR ARR RAR RRR RRR R ARRAS AR SD A 


SCOPE 

JSR PC,PRETST 3GO SET UP PRETEST DATA 

«WORD 1S120,20$,17 ;DATA USED BY PRETST 
208: CLR STMP4 ;CLEAR $TMP4 = USED AS ERROR RETURN FLAG 
1$: JSR PC,TCPMRA ;GO DO THE TEST 

ERROR +211 RETURN IS HERE IF AN ERROR 

BR 1$ ;RETURN TO THE TEST 


SEQ 0111 
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TEST 20 = VERIFY TRAP DUE TO CACHE PARITY INTERRUPT . SEQ 0112 


2345 » SBTTL TEST 20 - VERIFY TRAP DUE TO CACHE PARITY INTERRUPT 
FRRAREREARAAAHAAAAAAAAAAAAATTEKAT ee He eRe eKeeTeKeeeeeeeeeeeTeTes 
;#TEST 20 VERIFY TRAP DUE TO CACHE PARITY INTERRUPT 
RARE ARERR ERERAETERAEEREEAAEAAEAHRERAEAAAAAAAAAAEEHEREEEHEHEES 
eeeeeeereteNOTErereeeneeae 
THE MAP WILL BE SHUT OFF FOR THE REMAINDER OF THE DIAGNOSTIC 
BEFORE ANY TEST CODE IS EXECUTED. iT IS NOT NEEDED 


eee eReReeReR Ree ReeTeeeeeeeeeeeeeeeeeeeneeeteneeeeeereeeereeer 
OCICS rir rit ii rir il iri titi iri) 
THIS TEST IS OPTIONAL AND IS SELECTED BY SETTING MFM HARDWARE 
SWITCH REGISTER BIT 08 TO A 1 IN THE CASE OF STANDALONE OPERATION 
OF THE DIAGNOSTIC. IN THE CASE OF MANUFACTURING APT RUNTIME MODE 
THEN BIT 08 OF SSWREG IS SET TO 1 THROUGH APT SCRIPTING. 


s@ THE TEST VERIFIES THE SIGNAL GENERATED FROM THE CACHE 

fad TO THE UBL MODULE WHICH INDICATES TO THE UBI THAT A CACHE INTERRUPT 
s* 1S BEING CALLED FOR(CACHE PE INTR L). 
:* 
- 
;* 


@ @ © Gece * & O4 


THIS TEST ASSUMES THAT ALL MODULES EXCEPT THE UBI MODULE ARE KNOWN 
GOOD MODULES. 


it THIS TEST TOGETHER WITH OTHER CACHE TESTS,ALLOW MFG. TO ELIMINATE 
:# HAVING 70 RUN THE CACHE DIAGNOSTIC DURING QUICK 
it VERIFY TESTING OF THE UBI MODULE. 
st TEST DESCRIPTION: 
3* VERIFY INTERRUPT LOGIC BY ASSURING THAT A TRAP OCCURS TO LOCATION 
se 114 WHEN A LOCATION PREVIOUSLY WRITTEN 
al WITH WRONG HI/LO BYTE PARITY IS ACCESSED. 
7* CONDITIONS: PEA=0 
> DCP1=0 
23 MARBRBREASAASZRSESRASLESSLEASLAERARRARERRRRERRRRSRRRR RRR RRR RRR RRR RRRR SS SD SC 
015010 TST20: 
015010 000004 SCOPE 
015012 004737 017662 JSR PC,PRETST 3GO SET UP PRETEST DATA 
015016 015352 015116 000020 -WORD 15121,20%,20 ;DATA USED BY PRETST 
2346 015024 005037 177572 CLR MMRO ; TURN OFF MEMORY MANAGEMENT 
2347 015030 005037 172516 CLR “prt ; TURN OFF MAP RELOCATION 
2348 015034 005037 172340 CLR ARO ;PUT PARO BACK WHERE IT SHOULD AND 
2349 015040 012737 000200 172342 MOV 1200" KIPAR1 ;PUT PAR1 BACK WHERc IT SHOULD 
2350 177746 CACHE =177746 ; CACHE LOCATION =177746 
2351 177744 CMPE 2177744 ;CMPE LOCATION =177744 
352 177750 MAINT =177750 [MAINTENANCE LOCATION =177750 
Sea; 000114 CTRAPV =114 ;CACHE TRAP VECTOR =114 
235 000116 CTRAPS =116 ;CACHE TRAP STATUS =116 
S3ee 015046 105737 007774 TSTB CPUTYP 31S THIS AN 11/24? 
2356 015052 001404 BEQ 21$ ;BRANCH OVER JUMP IF 11/44 
2357 015054 105237 001100 INCB STSTNM eS oa TEST NUMBER TO SIMULATE SKIPPING TEST 
2358 015060 000137 015706 JMP TST22 JUMP OVER THIS AND NEXT TESTS 
2359 015064 132737 000200 020035 21%: BITB #200,SENVM 1S APT SIZING? 
2360 015072 001405 BEQ 12% :NO; TRY HARDWARE SWITCH REGISTER 


sr sss 


J 9 
032737 000100 020036 BIT #100 ,SSWREG ;YES APT IS wae APT SAY TO DO THIS TEST 


001523 BEQ TST21 33NO - SKIP TEST SEQ 0113 
000404 BR 20% ;YES,DO TEST 

032777 000100 164034 12%: BIT #100 ,aSWR :DOES HARDWARE SWITCH REGISTER SAY TO DO TEST? 

001516 BEQ TS$T21 ;;NO - SKIP T 


TES 
042737 000001 177572 20%: BIC #1 ,MMRO TURN OFF RELOCATION 


CKKUABO 11/44 UBI MAP 
‘TEST 20 = VERIFY TRAP DUE TO CACHE PARITY INTERRUPT 


2367 015124 052737 000400 177746 BIS 
2368 015132 032737 010000 177746 108: BIT 
2369 015140 001374 BNE 
2370 015142 013702 000000 MOV 
2371 015146 005037 000000 CLR 
2372 015152 013700 000114 MOV 
2373 015156 013701 000116 MOV 
2374 015162 012737 015264 oo Se MOV 
2375 015170 012737 000340 00011 MOV 
$ai8 015176 112737 000002 177750 MOVB 
2378 

2379 015204 005003 CLR 
2380 015206 012737 000015 177746 MOV 
2381 015214 005737 040000 TST 


Seas 015226 005737 000000 TST 
2387 015232 042737 000100 177746 BIC 
2388 015240 005037 177744 CLR 
2389 015244 042737 000005 177746 BIC 


2390 
2391 015252 005737 000000 TST 
2392 


2393 
2394 015256 000240 NOP 


4$: 
2398 015266 005037 177744 25$: CLR 
2599 015272 012737 001015 177746 MOV 


ots 015320 052737 000400 177746 BIS 
2406 015326 032737 010000 177746 2%: BIT 
2408 015336 012737 000000 177746 MOV 


BEQ 
2411 015350 104020 ERROR 
2412 


| 
2382 
tt 015220 052737 000100 177746 BIS 
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#400, CACHE 
#10000, CACHE 


6. »R2 
CTRAPV,RO 
CTRAPS,R1 
#4$,CTRAPV 


#340, CTRAPS 
#2,MAINT 


R3 

#15, CACHE 
40000 
#100, CACHE 
0 

#100, CACHE 
CMPE 


#5, CACHE 
0 


R3 
25$ 
(R6)+, (R6)+ 


CMPE 
#1015, CACHE 
RAINt 
RO.CTRAPV 
R1.CTRAPS 
#400, CACHE 
#10000, CACHE 
2$ 

#0, CACHE 

R3 


TST21 
+20 


kK 9 
SEQUENCE 93 


FLUSH CACHE TO INVALIDATE ALL CACHE LOCATIONS 


;WAIT TILL DONE 


7SAVE ADDR. 0 CONTENTS 
:0'S TO MAIN MEMORY LOCATION 0. 
;SAVE VECTORS 


SETUP FOR CACHE TRAP 


;HODO ALLOWS CACHE UPDATES AND CLOCKING OF 
[PARITY INFO TO INTERRUPT LOGIC ONLY DURING 
;THE DESTINATION ACCESS OF AN INSTRUCTION. 
:CLEAR ERROR FLAG 

:NO UCB SO AS TO WRITE CACHE STORES 

sUPDATE CACHE LOCATION 0000 WITH CORRECT 
PARITY STORAGE 

TALLOW WRITE WRONG PARITY DATA TO LO & HI BYTE 
:PARITY STORE. 

[READ UPDATE TO CACHE LOCATION 0000; 

[WRITE WRONG PARITY TO HI/LO BYTE PARITY STORES 
DISABLE WWPD 

; CLEAR CME AND PARITY DETECT LOGIC 

aye FOR INTERRUPT TO OCCUR AND ENABLE LOW 


CACHE 
TREAD HIT LO & HI BYTE PARITY CHECK GENERATORS 
;WILL DETECT WRONG PARITY AND THE PARITY 
ERROR WILL " CLOCKED TO INTERRUPT LOGIC 
:NEEDED FOR 11/44 
INDICATE THAT TRAP DID NOT OCCUR 
:BRANCH OVER STACK CORRECTION 
:READJUST STACK DUE TO INTERRUPT 


;CLEAR CMPE 


: DISABLE CACHE 
DISABLE rk MODE 
RESTORE LOCATION 0 
sRESTORE CACHE INTERRUPT VECTORS 


;BEFORE LEAVING TEST FLUSH CACHE TO 
ELIMINATE ANY EFFECTS OF WwPD 
:WAIT TILL DONE 


; TURN CACHE ON 

;DID TRAP OCCUR? 

: :BRANCH TO NEXT TEST IF YES 

; INTERRUPT/ABORT LOGIC TESTS TRAP TO LOCATION 
[114 DID NOT OCCUR 


SEQ 0114 


CKKUABO 11/44 UBI MAP 
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TEST 21 = VERIFY TRAP DUE TO CACHE PARITY ABORT 


2446 « SBTTL TEST 21 = VERIFY TRAP DUE TO CACHE PARITY ABORT 
FRAME RRA AAAAEAHERAA ARATE AA EAAAAAAAARARAAEAAATAAHAAA AAA TEES 
PeTEST 21 VERIFY TRAP DUE TO CACHE PARITY ABORT 
ie THIS TEST IS OPTIONAL AND IS SELECTED BY SETTING MFM HARDWARE 
:* SWITCH REGISTER BIT 08 TO A 1 IN THE CASE OF STANDALONE OPERATION 
;* OF THE DIAGNOSTIC. IN THE CASE OF MANUFACTURING APT RUNTIME MODE 
i THEN BIT 08 OF $SWREG IS SET TO 1 THROUGH APT SCRIPTING. 
**« 
:e THE TEST VERIFIES THE SIGNAL GENERATED FROM THE CACHE (BUS PBL) 
:* TO THE UBI MODULE WHICH INDICATES TO THE UBI THAT A CACHE ABORT 
ie 1S BEING CALLED FOR. 
‘* 
te THIS TEST ASSUMES THAT ALL MODULES EXCEPT UBI ARE KNOWN GOOD MODULES 
** 
3* THIS TEST TOGETHER WITH OTHER CACHE TESTS,ALLOW MFG. TO ELIMINATE 
3* HAVING TO RUN THE CACHE DIAGNOSTIC DURING QUICK 
:* VERIFY TESTING OF THE UBI MODULE. 
** 
;* TEST DESCRIPTION: 
*® 
3* VERIFY ABORT LOGIC BY THE FOLLOWING RESULTS WHEN A LOCATION 
72 PREVIOUSLY WRITTEN WITH WRONG HI/LO BYTE PARITY IS ACCESSED. 
3* 1. INSTRUCTION CYCLE WILL BE ABORTED 
7° 2. THE ABORT CAUSES TRAP TO 114 
**« 
;* PROCEDURE : INHIBIT CLOCKING OF PARITY ERROR SIGNAL TO 
;* INTERRUPT LOGIC. ALLOW CMPE<15> TO BE SET 
3* BY ABORT SIGNAL WHICH IS ASSERTED BY PARITY 
3 ERROR SIGNAL TO ABORT LOGIC. 
*® 
** 
it CONDITIONS: PEA=1 
sa DCPI=1 
** 
:: PORUREECEACAEAAEAAABALAEALEAASAEBASARERAEERR EERE RRE EERE EERE RRR ER RARE SS 
015352 $121: 
015352 000004 SCOPE 
015354 004737 017662 JSR PC,P :GO SET UP PRETEST DATA 
015360 015706 015420 000021 WORD rStoee 08, 21 = :DATA USED BY PRETST 
2447 015366 132737 000200 020035 BITB #200,$ENVM ‘1S APT SIZING? 
2448 015374 001405 BEQ 12$ NO; TRY HARDWARE SWITCH REGISTER 
2449 015376 032737 000100 020036 BIT #100, $SWREG YES APT IS SIZING:DOES APT SAY TO DO THIS TEST 
2456 015404 00153 BEQ 21$ ‘NO - SKIP TEST 
2451 015406 000404 BR 20$ ‘YES,DO TEST 
2452 015410 3275/7 000100 177570 12$: BIT #100,177570 ‘DOES ne SWITCH REGISTER SAY TO DO TEST? 
2453 015416 601526 BEQ 21$ “NO - SKIP TEST 
2454 015420 042737 000001 177572 208: BIC #1,177572 ‘TURN OFF RELOCATION 
2455 015426 052737 000400 177746 BIS #460 CACHE “FLUSH CACHE TO INVALIDATE ALL CACHE LOCATIONS 
2456 015434 032737 010000 177746 2%: BIT #10000,CACHE § :WAIT TILL DONE 
2457 015442 001374 BNE 2$ 
2458 015444 013702 000000 MOV 0,R2 :SAVE ADDRESS 0 CONTENTS 


SEQ 0115 


2459 015450 


2464 015474 


005037 


012737 


000000 


000114 
000116 
015576 00011 
000340 00011 


4 
6 


0 


R3 
CTRAPV,RO 
CTRAPS._R1 
#4$, CTRAPV 
#346, CTRAPS 


;ALL_0°S TO LOCATION 0 
;ADDRESS 0 TO R3 
;SAVE VECTORS 


;SETUP FOR TRAP 


SEQ 0116 


CxKUAgy 11/44 UBI_MAP 
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TEST 21 = VERIFY TRAP DUE TO CACHE PARITY ABORT 


N 9 
SEQUENCE 95 


SEQ 0117 


2465 015502 112737 000002 177750 MOVB #2,MAINT sHODO ALLOWS CACHE UPDATES AND CLOCKING OF 
2466 ‘PARITY INFO TO INTERRUPT LOGIC ONLY DURING 
2467 [THE DESTINATION ACCESS OF AN INSTRUCTION. 
2468 015510 005005 CLR R5 [CLEAR ERROR FLAG 
2669 015512 012704 177777 MOV #=1,R4 GALL 1*S TO RG 
2470 015516 012737 000015 177746 MOV #15. CACHE NO UCB SO AS TO WRITE CACHE STORES 
2471 015524 005737 040000 TST 40060 :UPDATE CACHE LOCATION 0000 WITH CORRECT PARITY 
2473 015530 052737 000100 177746 BIS #100, CACHE :ALLOW WRITE WRONG PARITY DATA TO LO & HI BYTE 
2475 015536 005713 TST (R3) [READ UPDATE TO CACHE LOCATION 0000 WRITE WRONG 
2476 :PARITY TO HI/LO BYTE PARITY STORES 
2477 015540 042737 000100 177746 BIC #100, CACHE ‘DISABLE WwPD 
2478 015546 005037 177744 CLR MPE CLEAR CMPE AND PARITY DETECT LOGIC 
2479 015552 042737 000004 177746 BIC fe CACHE TENABLE LOW CACHE 
2480 015560 052737 000200 177746 BIS #200, CACHE ‘ALLOW FOR ABORT 
2481 015566 011304 MOV (R3) RG ;READ HIT LO & HI BYTE PARITY CHECK GENERATORS WILL 
2482 015570 000240 NOP “NEEDED IN 11/44 TO ALLOW 1 INSTRUCTION BEFORE ABORT 
2483 ;DETECT WRONG PARITY USING HODO AND SOURCE MODE FOR READING LOCATION 0 WILL 
2484 : INHIBIT PARITY ERROR FROM BEING CLOCKED TO INTERRUPT LOGIC. HOWEVER, THE PARITY 
2485 TERROR SIGNAL WILL CAUSE THE ABORT SIGNAL TO BE ASSERTED. THE ABORT SIGNAL WILL 
2486 SBECAUSE CMPE<15> TO BE SET. THIS INSTRUCTION SHOULD BE ABORTED 
2487 015572 005205 INC RS s INDICATE NO TRAP OCCURED 
2488 015574 000401 BR 5$ ‘BRANCH OVER STACK CORRECTION 
2489 015576 022626 4$: CMP (RG), (R6)+ SREADJUST STACK 
2490 015600 005037 177744 5$: CLR ‘CLEAR CMPE 
2491 015604 012737 001015 177746 MOV HOt, CACHE ‘DISABLE CACHE 
2492 015612 105037 177750 CLRB ‘DISABLE MAINT. MODE 
2493 015616 010237 000000 MOV RD. yy “RESTORE VECTORS 
2494 015622 010037 000114 MOV RO, CTRAPV 
2495 015626 010137 000116 MOV R1_CTRAPS 
2496 015632 052737 000400 177746 BIS #460, CACHE :BEFORE LEAVING TEST FLUSH CACHE TO 
2497 sELIMINATE ANY EFFECTS OF WWPD 
$198 015640 032737 010000 177746 30%: BIT #10000,CACHE § :WAIT TILL DONE 
2499 015646 001374 BNE 30$ 
2500 015650 022704 177777 8$: CMP #-1,R4 sWAS INSTRUCTION ABORTED LEAVING R4 INTACT? 
2501 015654 001401 BEQ 9$ ZYES 
2502 015656 104021 ERROR +21 s INTERRUPT/ABORT TESTS R4& WAS OVERWRITTEN WITH 
2503 sDATA INDICATING THAT INSTRUCTION WAS NOT ABORTED 
2504 015660 005705 9$: TST R5 :DID TRAP OCCUR 
2505 015662 001401 BEQ 10$ YES, PASS 
2506 015664 104022 ERROR +22 SINTERRUPT/ABORT TESTS TRAP DID NOT OCCUR DUE TO ABORT 
2507 015666 012737 000000 177746 10%: MOV #0, CACHE STURN CACHE ON 
2508 015674 62737 000097 001100 21$: ADD #7,STSTNM ADD 7 TO $TSTNM 70 COMPENSATE FOR 7 TESTS SKIPPED 
2509 015702 000137 017202 JMP TST31 : JUMP OVER NEXT 7 TESTS = THEY ARE FOR AN 11/24 ONLY 


—— —=$————$—$ —_——__—- — — SO. Ce ee 
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TEST 22 = LMA REGISTER PHYSICAL ADDRESS CHECK SEQ 0118 


2522 


015706 


WWWWWWWAWWPororororonen 
MO DONANEWN HOO DNOUEW 


2549 016106 


000004 
004737 


012637 


017662 


000001 
006144 


177736 
177700 


177734 


177734 


001172 
001172 


006150 
006152 


» SBTTL TEST 22 = LMA REGISTER PHYSICAL ADDRESS CHECK 


SRRRARARERAREEAAEAEEEERAEAEAAAERAAAAAERAEAAAAAKKAKKEKAAARAKAAAE AEH TE 


:#TEST 22 LMA REGISTER PHYSICAL ADDRESS CHECK 
THE NEXT 7 TESTS ARE EXECUTED ON THE 11/24 ONLY. 


-* 

de 

;* THIS TEST IS TO CHECK OUT THE LMA (LAST MAPPED ADDRESS) REGISTER FOR 
;* PROPER CONTENTS. FIRST, THE PAR AND MAP REGISTERS ARE SET, THEN A 

;% PHYSICAL ADDRESS IS LOADED INTO AN EXPECTED DATA LOCATION. THEN THE 
39 MAP IS INSURED TO BE ON AND A MEMORY ACCESS IS DONE, USING THE MAP 

7% REGISTER SO THE LMA IS LOADED. THE LMA IS THEN CHECKED FOR CONTAINING 
;* THE PROPER CONTENTS, CALLING AN ERROR IF EXPECTED DATA DID NOT APPEAR. 
-e 

S 


MARSBSESRRESLASLSSLASESERSA SERS ASE SESE SESE ESRC RRR ERR RRR SRA RRR RAAB OI 


i 


122: 

SCOPE 
JSR PC,PRETST ;GO SET UP PRETEST DATA 
-WORD T1S123,208,22 ;DATA USED BY PRETST 

208: BIC #B1T0,MMRO ; TURN OFF MEMORY MANAGEMENT 
BIC #60, MMR ;TURN OFF 22-BIT AND MAP RELOCATION 
MOV #20$,EADRES ;LOAD EADRES WITH LOWER 16 BITS OF THE PHYSICAL ADDRESS 
CLR EADRES+2 ;LOAD UPPER 6 BITS WITH PHYSICAL BITS EXPECTED 
MOV #20$+BIT13,RO0 ;MOVE ADDRESS +20000 (TO REFERENCE PAR1) TO RO 
CLR MAPLO ;CLEAR MAP 0 LOWER 16 
CLR MAPHO ;CLEAR MAP 0 UPPER 6 


MOV KIPARO,-(SP) ;SAVE KIPARO 
MOV KIPAR1,-(SP) ; SAVE KIPAR1 
CLR KIPARO ;CLEAR_PARO FOR NO MAP USE FOR THIS AREA 


MOV #170000,KIPAR1 :PUT 170000 IN PAR1 FOR PROPER MEMORY REFERENCE 
BIS #60, MMR3 ‘TURN ON 22-BIT AND MAP RELOCATION 
BIS #BITO,MMRO ‘TURN ON MEMORY MANAGEMENT 
MOV (RO) ,R1 ‘DO THE MAP REGISTER READ THROUGH THE MAP 
CMP EADRES,LMALOW  :SEE IF LMA LOWER 16 WERE LOADED PROPERLY 
BNE 1$ ‘BRANCH TO CALL ERROR IF NOT 
MOV LMAHI,$TMPO ‘MOVE HI 6 BITS TO $TMPO FOR PREPARATION 
BIC #177700,$TMPO  :CLEAR ALL BUT LOWER 6 BIT 
BEQ 2$ [BRANCH AROUND ERROR IF in” 
1$: MOV LMALOW,EADRS2  :MOVE LOWER 16 BITS OF RECEIVED DATA TO EADRS2 FOR ERROR 
MOV LMAHI,EADRS2+2 :MOVE UPPER 6 BITS OF RECEIVED DATA TO EADRS2+2 FOR ERROR 


MOV (SP)+,KIPAR1 :RESTORE KIPAR1 
MOV (SP)+,KIPARO ;RESTORE KIPARO 
+ ;LMA NOT LGADED PROPERLY 
BR TST23 ;;BRANCH OVER PAR RESTORATION - NOT NEEDED 
2$: MOV (SP)+,KIPAR1 ;RESTORE KIPAR1 
(SP)+,KIPARO ;RESTORE KIPARO 
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TEST 25 = LMA FORCE JUMPER BIT TEST SEQ 0119 
2556 -SBTTL TEST 23 = LMA FORCE JUMPER BIT TEST 
PRCT S CISL T CSTE I eS SiS T rier tri titi iti iit iii iii titi iii iii iit: 
TEST 23 LMA FORCE JUMPER BIT TEST 
Zz 
:* THIS TEST DETERMINES THAT THE FORCE JUMPER BIT OF THE LMA IS ZERO AFTER 
it A SYSTEM RESET. 
- 
PPITTITITITITITIIITTITTTI LITT T ITT TITiTiTiTitiriiiiiiriii iii ii iii 
016112 TST23: 
016112 000004 SCOPE 
016114 004737 017662 JSR PC,PRETST 3GO SET UP PRETEST DATA 
016120 016152 016126 000023 «WORD TS124,20$,23 ;DATA USED BY PRETST 
2557 000100 FJBIT =100 ;FORCE JUMPER BIT IS BIT 6 
2558 016126 000005 208: RESET sRESET THE WORLD, £LEARING THE FJBIT 
2559 016130 032737 000100 177736 BIT #F JBIT,LMAHI :CHECK THE BIT FOR BEING ZERO 
2560 016136 001405 BEQ TST24 ::;BRANCH TO NEXT TEST IF OK 
2561 016140 013701 177736 MOV LMAHI,R1 ;MOVE.LMAHI TO R1 FOR ERROR CALL 
2562 016144 042701 000100 BIC #FJBIT,R1 ;CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 
2563 016150 104024 ERROR +24 :LMA FORCE JUMPER BIT NOT ZERO 


it = 


CKKUABO 11/44 UBI MAP 
LTEST 24 = SETTING LMA FORCE JUMPER BIT TEST 


2573 


i et aed 


2603 016346 


000004 


012637 
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017662 


000100 
000100 


177736 
000100 


170000 
177400 
016276 


125252 
001000 
oui 
001262 
005046 


172350 


000024 
177736 
177736 


001254 
001256 
001106 


162644 
172350 


172350 


» SBTTL 


SEQ 0120 


TEST 24 = SETTING LMA FORCE JUMPER BIT TEST 


FERRARA REAR EE ETE AAA EERE ARE REA AAA EE TERE RARE AAAATEAA EEE 


TeTEST 24 


:* 
* 
:* 
. 
3;* 
+e 
. 
-* 
. 
:* 
. 
-* 
. 
te 
TS 


T24: 


208: 


1$: 


2$: 


3$: 


4$: 
5$: 


6$: 


THE JUMPERS ARE NOT IN THEIR DEFAULT STATE. 


SETTING LMA FORCE JUMPER BIT TEST 
THIS TEST SETS THE FORCE JUMPER BIT AND TESTS ITS FUNCTIONALITY IF 


IF NOT (*LOWEST' OR 


"HIGEST' DO NOT CONTAIN THE DEFAULT VALUES OF 170000 OR 177400 


RESPECTIVELY), 


THIS TEST INSURES THAT THE PREVIOUSLY DISABLED MAP 


REGISTERS ARE ENABLED WITH THE FJ BIT SET 


PC,PRETST 

TST25,20$,24 
#F JBIT,LMAHI 
at est 


$ 
LMAHI,R1 
#F JBIT,R1 


+25 

a aaeraine: 
#177400, HIGEST 
TST25 
#3$,$LPERR 


gy esate. *R2 
#BIT9,aSWR 
4$ 

#200, KIPAR4 
PC,TSTLOC 

3$ 

+27 

UBMHI ,KIPAR4 
6$ 

PC,TSTLOC 

4$ 
+27 
4$ 

(SP)+, KIPAR4 


MAREBSAASALALALELASALESESSL SSSA AREER SARA SESE RR SARA RRR RA AAS ARR AR SS I 


;GO SET UP PRETEST DATA 

i USED BY PRETST 

;SET THE BIT 

;SEE IF IT WAS SET 

:BRANCH IF SET 

;MOVE LMAHI TO R1 FOR ERROR CALL 

;SET THE BIT THAT SHOULD HAVE BEEN SET 

;LMA FORCE JUMPER BIT NOT SET 

;SEE IF MAP REGISTER 0 IS LOWEST 

;BRANCH AROUND UPPER LIMIT CHECK IF NOT 

;SEE IF MAP REGISTER 31 IS HIGHEST 

;;BRANCH TO NEXT TEST IF _SO 

;RESET LOOP ON ERROR TO 3$ 

;SAVE PAR4 

;MOVE LOWEST PAGE OF MEMORY WINDOW TO PAR4 
;SUBTRACT 200 FROM KIPAR4 70 PREPARE FOR SUBROUTINE 
;THIS WILL BE USED TO SELECT PAR4, ADDRESS 17776 
;LOAD CONSTANT TO R2 

:BRANCH OVER LOOP SETU 

;SEE IF LOOP ON ERROR 1s STILL SET 

BRANCH OUT IF NOT 

;UNDO NEXT PAGE MAP FOR LOOPING 

;GO TEST LOCATION FOR WRITEABILITY 

;BRANCH BACK FOR LOOPBACK 

:FORCE JUMPER BIT FAILS TO REVERT MAP REGISTER STATUS TO DEF 
;SEE IF HIGHEST HAS BEEN REACHED 

;BRANCH TO RESTORE PAR4 AND Leas TEST IF SO 

GO TEST LOCATION FOR WRITEABILITY 

;BRANCH BACK FOR ANOTHER TEST IF LOCATION LOADED 
;FORCE JUMPER BIT FAILS TO REVERT MAP REGISTER STATUS TO DEF 
:BRANCH BACK FOR ANOTHER TEST 

:RESTORE KIPAR4 
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TEST 25 = CLEARING THE FORCE JUMPER B SEQ 0121 
2609 -SBTTL TEST 25 = CLEARING THE FORCE JUMPER BIT 
SRR ERE E EERE E EEE RARER RARER EERE E TERETE EERE EE AEE 
S#TEST 25 CLEARING THE FORCE JUMPER BIT 
ie THIS TEST CLEARS THE FJ BIT AND INSURES THAT IT IS SUCCESSFULLY CLEARED. 
-* 
See ee tee ee eee RE EET TERETE TEE eee Re Re eee RE eee REET R ETT 
016352 1§125: 
016352 000004 SCOPE 
016354 004737 017662 JSR PC, PRETST GO SET UP PRETEST DATA 
016360 016416 016366 000025 WORD TST26,208,25  :DATA USED BY PRETST 
2610 016366 042737 000100 177736 208: BIC  #FJBIT,LMAHI CLEAR THE BIT 
2611 016374 032737 000100 177736 BIT § #FJBIT.LMAHI CHECK TO SEE THAT IT WAS CLEARED 
2612 016402 001405 BEQ  —- TST26 ;;BRANCH IF CLEARED 
2613 016404 013701 177736 MOV —sLMAHI, R1 :MOVE LMAHI TO R1 FOR ERROR CALL 
2614 016410 042701 000100 BIC  #FJBIT,RI /CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 
2615 016414 104024 ERROR +24 ZLMA FORCE JUMPER BIT NOT ZERO 


eo 11/44 UBI MAP 
TEST 26 = LMA CONTROL BITS TEST - 


2622 


016416 


0 
2623 Met >i 


2647 016612 


000004 


000426 
013746 


012637 


F 10 
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036540 


177736 
037777 


001172 


177736 
037777 
001172 


001000 


000026 


172342 


177572 
172516 


172342 


162362 


~SBTTL 


SF RRR AEA EAA E EET E EATER ERA ERATE TEETER EERE RARER 


TEST 26 = LMA CONTROL BITS TEST = DATI 


;* TEST 26 


208: 


1$: 


2$: 


3$: 


Mati TEST INSURES THE CONTROL BITS 14 AND 15 LOAD PROPERLY DOING A 


LMA CONTROL BITS TEST = DATI 


PC,PRETST 
TST27,20$,26 
KIPARO,-(SP) 
KIPAR1.-(SP) 
#170000. KIPAR1 
KIPARO 
#1,MMRO 
#20,MMR3 
#1$+BIT13,RO 
(RO) ,R1 
LMAHI,R2 
#37777 ,R2 


3$ 
$TMPO 
2$ 


KIPARO,-(SP) 
KIPAR1,-(SP) 
#170000, KIPAR1 
KIPARO 

(RO) ,R1 

LMAHI R2 
#37777 ,R2 
R2,$TMPO 


2$ 
#B1T9,aswR 
1$ 


$ 
(SP)+,KIPAR1 
(SP)+, KIPARO 
+26 

TST27 
(SP)+,KIPAR1 
(SP) +, KIPARO 


;GO SET UP PRETEST DATA 
;DATA USED BY PRETST 


;SAVE KIPARO 
;SAVE KIPAR1 


;LOAD KIPAR1 


;CLEAR KIPARO 


; TURN ON MEMORY pect py 
; TURN ON 22-BIT ADDRESSING 
MOVE oe ADDRESS #20000 (TO REF PAR1) TO RO 


;D0 A DA 


TI 
:MOVE LMAHI TO R2 FOR CONTROL 
;CLEAR ALL BUT THE CONTROL BITS 
:BRANCH TO FINISH TEST IF ALL CLEAR 
;CLEAR THE EXPECTED LOCATION 


;G0 CALL ERROR 


;SAVE KIPARO 
;SAVE KIPAR1 


: I 

:MOVE LMAHI TO R2 FOR CONTROL 
;CLEAR ALL BUT THE CONTROL BITS 
:SEE IF EXPECTED CAME UP 

;BRANCH TO CALL ERROR IF IT DIDN'T 
;SEE IF LOOP ON ERROR IS SET 
;BRANCH BACK FOR ANOTHER TRY IF SET 
;GO EXIT TEST - ALL DONE 


RESTORE KIPAR1 
;RESTORE KIPARO 


;LMA CONTROL BITS INCORRECT 
;;BRANCH OVER PAR RESTORATIONS 


;RESTORE KIPAR1 
;RESTORE KIPARO 


SEQ 0122 


SS es 11/44 UBI MAP 
TEST 27 = LMA CONTROL BITS TEST = DATO 


2654 


2655 

2656 016632 
016636 
016642 
016650 

2657 016654 


2662 016676 
2663 016700 
2664 016706 
2665 arene 


2679 017004 


000004 


000426 
013746 


012637 
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177736 
037777 
100000 


100000 


001172 
001000 


000027 


172342 


001172 


172342 


162170 


- SBTTL 


DATO 


20$: 


2$: 


3$: 


TEST 27 = LMA CONTROL BITS TEST = DATO 


pais TEST INSURES THE CONTROL BITS 14 AND 15 LOAD PROPERLY DOING A 


FRR AREAA REET ARE EERE TETRA KEEHAREAAREKERAEAREAA TEARS 


LMA CONTROL BITS TEST = DATO 


PC,PRETST 
T$130,20$,27 


KIPARO,-(SP) 
KIPAR1,-(SP) 
ua 


KIPAR 
#1$+B1T13,R0 
R1, (RO) 
LMAHI,R2 


#37777 ,R2 
#DATO, R2 


3$ 
#DATO,STMPO 
2$ 


KIPARO,-(SP) 
KIPAR1.-(SP) 
#170000, KIPAR1 
KIPAR 

RI, no) 
LMAHI,R2 
#37777 ,R2 

Re. ,STMPO 


$ 
#B1T9,aSWR 


P)+,KIPAR1 
d+, KIPARO 


MOM AO* 
oa 


KIPAR1 


Pp 
T 
P)+ 

P)+,KIPARO 


MARA RARRBAARAARARAAARBRRRARRRARRRALA SERRA ARAL SERS RA REAR RRR ASRS R RS SS | 


;GO SET UP PRETEST DATA 
;DATA USED BY PRETST 


;SAVE KIPARO 
;SAVE KIPAR1 
;LOAD KIPAR1 
;CLEAR KIPARO 


R 
: MOVE ~~ ADDRESS #20000 (TO REF PAR1) TO RO 


:D0 A DAT 


:MOVE LMAHI TO R2 FOR CONTROL BIT ANALYSIS 
:CLEAR ALL BUT THE CONTROL BITS 
SEE IF BIT 15 IS SET aND 14 IS CLEAR 


;BRANCH IF OK 


;MOVE EXPECTED DATA TO $TMPO 


:GO CALL ERROR 


;SAVE KIPARO 
;SAVE KIPAR1 
;LOAD KIPAR1 


; 0 

:MOVE LMAHI TO R2 FOR CONTROL 
;CLEAR ALL BUT THE CONTROL BITS 
:SEE IF EXPECTED CAME UP 

;BRANCH TO CALL ERROR IF IT DIDN'T 
;SEE IF LOOP ON ERROR IS SET 
;BRANCH BACK FOR ANOTHER TRY IF SET 
;G0 EXIT - ALL DONE 


sRESTORE KIPAR1 
sRESTORE KIPARO 


;LMA CONTROL BITS INCORRECT 
; BRANCH OVER PAR RESTORATION - NOT NEEDED 


sRESTORE KIPAR1 
;RESTORE KIPARO 


SEQ 0123 


CKKUABO 11/44 UBI MAP 
TEST 30 = LMA CONTROL BITS TEST - DATOB 


2686 


017010 


2687 

2688 017024 
017030 
017034 


017042 
2689 017046 


2698 24 


000004 


000426 
013746 


012637 


H 10 
MACRO M1113 monet -80 14:09 PAGE 86 SEQUENCE 102 


177736 
037777 
140000 


140000 


177736 
037777 
001172 


001000 


000030 


172342 


001172 


172342 


161776 


-SBTTL 


20$: 


2$: 


3$: 


TEST 30 = LMA CONTROL BITS TEST = DATOB 


FERRARA RARER AREER AREA EEA RAAT E ATER A AAA EAAAA RAAT AT EAA AREEHE AHRENS 


LMA CONTROL BITS TEST - DATOB 


PC,PRETS 
TST31, 285, 30 


KIPARO,-(SP) 
KIPAR1.-(SP) 
#170000, KIPAR1 


KIPA 
bigs sh RO 


#DATOBR2 

3$ 
#DATOB,STMPO 
2$ 


KIPARO,-(SP) 
KIPAR1.-(SP) 
#170006, KIPAR1 
K 


#37777 ,R2 
R2,$TMPO 
2$ 


#B1T9,aSWR 
1$ 


3$ 
(SP)+,KIPAR1 
(SP)+,KIPARO 
+26 

T$T31 
(SP)+,KIPAR1 
(SP)+,KIPARO 


:GQ SET UP PRETEST DATA 

;DATA USED BY PRETST 

;DATOB CONTROL BITS STATUS=140000 
7SAVE KIPARO 

:SAVE KIPART 

;LOAD KIPAR1 

CLEAR KIPARO 

:MOVE LOCATION ADDRESS #20000 (TO REF PAR1) TO RO 
;D0 A DATOB 

;MOVE LMAHI TO R2 FOR CONTROL 
;CLEAR ALL BUT THE CONTROL BITS 
:SEE IF BIT 15 AND 14 ARE SET 
:BRANCH IF OK 

;MOVE EXPECTED DATA ys $TMPO 
;BRANCH TO CALL ERROR 


;SAVE KIPARO 

;SAVE KIPAR1 

;LOAD KIPAR1 

;CLEAR KIPARO 

;D0 A DATOB 

;MOVE LMAHI TO R2 FOR CONTROL 
;CLEAR ALL BUT THE CONTROL BITS 
SEE IF EXPECTED CAME UP 

BRANCH IF IT DIDN'T 

;SEE IF LOOP ON ERROR IS SET 
BRANCH BACK FOR ANOTHER TRY IF SET 
;BRANCH TO COMPLETE TEST - ALL DONE 
;RESTORE KIPAR1 

;RESTORE KIPARO 

;LMA CONTROL BITS INCORRECT 
;;BRANCH OVER PAR RESTORATION - NOT NEEDED 
;RESTORE KIPAR1 

;RESTORE KIPARO 


RARER AAA AAA AAA AAA AAA 


° 
** 
'* 
'* 
°@ 
** 
Ps 


>>NOTE<<: 


*DATIP’ CANNOT BE CHECKED IN THE 11/24 BECAUSE THE LMA IS 


WRITTEN TWICE WHEN A ‘DATIP' IS EXECUTED, DESTROYING THE 
"DATIP’ STATE THAT WAS WRITTEN FIRST. 


TORUS CASASEASSERSEERRSESEERE REESE SESE SESE EERE CARER ARR A RRR RRA R SDS 


SEQ 0124 


2751 


017202 
2752 017204 


2767 017306 


CKKUABO 11/44 UBI MAP 
TEST 31 = MEMORY ON UNIBUS TEST 


000004 


005037 


1 10 
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000001 
000040 


021306 
170000 


177400 
012620 
021306 


172340 


177572 
161730 


001346 
001254 


001256 
001106 


172516 


-SBTTL TEST 31 = MEMORY ON UNIBUS TEST 


5 Plata Na Baa Rtialia Naa alilia la Ra alata tate ta Beatie tata tetaliatin te Relialieteletelelaialaleieiaiateieielintaialeiaieieieieleieieieiaiel 


;#TEST 31 MEMORY ON UNIBUS TEST 


THIS TEST DETERMINES IF IT HAS BEEN SELECTED BY A ‘1° IN BIT 5 OF 
THE SWITCH REGISTER. IF IT HAS, IT THEN DETERMINES IF THERE IS ANY 
UNIBUS MEMORY - AN ERROR RESULTS IF THERE IS NONE. 
IT THEN SIZES THE AMOUNT OF MEMORY ON THE UNIBUS, INFORMS THE USER 
HOW MUCH MEMORY IT FOUND ON THE FIRST PASS, THEN SETS AND CLEARS ALL 
ts baal ten LOCATIONS IN THE UNIBUS MEMORY FOUND USING THE ‘MARCH’ 


M7098 FOR THE 11/44, M7134 FOR THE 11/24 
JUMPER SETTINGS FOR THE MAP REGISTERS 


V<<<<<LOWER LIMIT>>>>>V V<<<<UPPER LIMIT>>>>V © 
0 0 0 0 0 0 0 


w8 


eee beeeaeaeeeheaee a 


wi2) wit! w10! W9i W7! wo Wai Ws! 
0 0 26 2 eew4e eee 


SeW3-W7 AND W8-W12 ARE THE BINARY-CODED PAGE NUMBER LIMIT (UPPER OR LOWER). 
;*A JUMPER IN CORRESPONDS TO A LOGIC ‘‘0''; A JUMPER OUT TO A LOGIC ‘I’. TO 
'*SET THE JUMPERS, DETERMINE WHICH UNIBUS PAGE THE MEMORY RESIDES IN (0 TO: 31) 
3*BY CHECKING WHICH OF THE ; ADDRESS BITS BA17-BA13 ARE ASSERTED. ALL ZEROS 
:*I1S PAGE 0, 10000 IS PAGE 1, 01000 IS PAGE 2, 11000 IS PAGE 3, ETC. UP TO 
:*PAGE 31 (11111). FOR THE MEMORY TO BE DETECTED, IT MUST LIE AT OR ABOVE 
7*THE LOWER LIMIT JUMPER SETTING AND BELOW THE UPPER LIMIT JUMPER SETTING. 
:*THUS TO HAVE UNIBUS MEMORY IN PAGES 5-9, ONE WOULD SET THE LOWER LIMIT TO 


e- tee eee ieee re eee ee 


:*PAGE 5 (10100) OR W10 AND Wi2 OUT, AND W8, W9 AND W11_IN, AND THE UPPER LIMIT 


:*TO PAGE 10 (01010) OR W4 AND W6 OUT, AND W3, WS AND w7 IN. UNIBUS MEMORY 
;*MUST BE CONTIGUOUS SINCE NO GAPS ARE PERMITTED. 


SRR RRR ERE EERE E REAR EE 


18131; SCOPE 
BIC #1,MMRO ; TURN OFF MEMORY MANAGEMENT 
BIT #B1TS,aSwWR SEE IF THIS TEST HAS BEEN SELECTED 
BEQ 2$ ;BRANCH TO JUMP IF TEST NOT SELECTED 
MOV #SEOP ,NXTTST ;POINT TO ESCAPE VECTOR 

1$ CMP #170000,LOWEST ;SEE IF LOWEST IS LOWEST 
BNE 3$ :GO DO TEST IF IT ISN'T - UNIBUS MEMORY EXISTS 
CMP #177400 ,HIGEST a. iy HIGEST IS HIGHEST 
BNE 3 O TEST IF IT ISN'T - UNIBUS MEMORY EXISTS 
MOV WSIZEJ,S$LPERR :OVE SIZE JUMPER ROUTINE TO LOOP ON ERROR 
ERROR +17 - By: MEMORY EXISTS 

2$: JMP SEOP P TO END OF PASS 

3$: CLR ERRCNT ‘TLEAR THE ERROR COUNT INDICATOR 


CLR PCPUER :CLEAR THE ERROR REGISTER RECEIVER 

CLR MMR3 :CLEAR MEMORY MANAGEMENT REGISTER MMR3 
#20, MMR5 ;TURN ON 22-BIT MAPPING 

CLR KIPARO :MAP PARO TO 0-4K 


IF THERE IS MEMORY, 


SEQ 0125 


2768 017312 


2773 017334 


012737 


005046 


000200 172342 
001272 
001270 


4$: 


J 10 
#200 ,KIPAR1 


UBRHI. RO 
UBRLOw,RO 
RO 


RO,R1 
-(SP) 


;MAP PARI 


TO 4-8K 


;MOVE UBRHI TO RO 


; SUBTRACT 
;ADD LAST 
SAVE RO I 
:CLEAR THE 


UBRLOW FROM IT, AND 
BLOCK OF 4K TO LOOP COUNTER 


N R1 
MAJOR LOOP INDICATOR ON STACK 


SEQ 0126 


CKKUABO 11/44 UBI MAP 


2774 017336 


2786 017410 
2787 017412 
2788 017416 
2789 017422 
2790 017430 
2791 017432 
2792 017440 
2793 017444 


2824 017604 


012746 


066637 © 


MACRO M1113 O5-NOV-80 14:09 PAGE 87-1 
TEST 31 = MEMORY ON UNIBUS TEST 


000001 
021735 


021771 
002413 
001260 
000001 
010000 
140000 
000200 
000002 


010000 


017520 


001202 


001202 
001204 
001314 


006144 


002413 


172354 
177572 


172354 
172354 


001106 


172354 


5$: 


6$: 


7$: 
8$: 


9$: 


20$: 
10$: 


14$: 
16$: 


#200,-(SP) 
UBMLOW,- (SP) 
#2,-(SP) 
#125252,R4 
#5252525 
$PASS 
6$ 
RO,=(SP) 
(SP) 
(SP) 
#1,SPSUPP 
~UBMAVA 
»UBMEND 
SPSUPP 
UBMLOW, KIPAR6 
R1,R0 
#1 *MMRO 
#10000,R2 
#140006, R3 
RG, (R3)+ 
R2,8$ 
#200, KIPAR6 
RO, 7$ 
2(§P), KIPAR6 
R1,RO 
#16000, R2 
#140000 R3 
#20$,$LPERR 
10$ 


R4,(R3) 
R4,(R3) 
11$ 


R4,STMP4 
12$ 

(R3) 

Res (R3) 
16$ 

RS, STMP4 
(R3) ,$TMPS 
PCPUER 

15$ 
R3,EADRES 
+206 

16$ 

SERTTL 
PCPUER 
(SP) ,R3 


R2,10$ 
4(SP) ,KLPAR6 


K 10 
SEQUENCE 104 


SEQ 0127 


;MOVE PAR CHANGE TO STACK 
sMOVE STARTING PAR VALUE TO STACK 


;MOVE SECOND TEST PATTERN TO RS 

;SEE IF THIS IS FIRST PASS 

:BRANCH IF NOT 

;MOVE LOOP COUNTER TO THE STACK AND 

;ROTATE THIS TO THE LEFT 2 PLACES 

;TO INDICATE NUMBER OF K IN OCTAL 

;MOVE THE SUPPRESS SPACES INDICATOR TO FLAG 

;GO TYPE THE UNI-BUS MEMORY AVAILABLE MESSAGE 
;GO TYPE THE NUMBER IN DECIMAL 

;TYPE A_‘' K'* AND <CRLF> 

;CLEAR THE INDICATOR FLAG 

INITIALIZE PAR6 

;REINITIALIZE LOOP COUNTER RO 

;TURN ON MEMORY MANAGEMENT 

;ACCESS ALL WORDS IN THIS 4K BLOCK 

sFIRST ADDRESS OF THIS PAGE 

;MOVE THE PATTERN TO THE LOCATION 

;SUBTRACT 1 AND BRANCH IF 4K NOT DONE 

;MAP_ TO NEXT 4K BLOCK 

;SUBTRACT 1 AND BRANCH IF BLOCKS OF 4K NOT DONE 
;REINITIALIZE KIPAR6 TO POINT AT BEGINNING 
sREINITIALIZE LOOP COUNTER RO 

sACCESS ALL WORDS IN THIS 4K BLOCK 

sFIRST ADDRESS OF THIS PAGE 

[ADD OFFSET FOR THIS MAJOR PASS 

;LOOP ON ERROR TO 20$ 

:BRANCH OVER LOOP ON ERROR PREPARATION 

;REWRITE 1ST PATTERN TO LOCATION FOR LOOP 

SEE IF IT WAS LOADED PROPERLY 

;BRANCH AROUND ERROR CALL IF OK 

;MOVE EXPECTED DATA TO STMP4 

:GO COMPLETE DATA FETCHING AND CALL ERROR 
;COMPLEMENT THAT LOCATION Le PRODUCE SECOND TEST PATTERN 
;SEE IF IT IS THE COMPLEMENT 

;BRANCH AROUND ERROR CALL IF IT IS 

s;MOVE EXPECTED DATA TO STMP4 

MOVE RECEIVED DATA TO STMP5 

sSEE IF THIS ACCESS TIMED OUT - IF IT DID, BRANCH 
;AROUND ERROR CALLS - TIMEOUT ROUTINE LOGGED ERROR 
;MOVE ADDRESS IN R3 TO EADRES FOR ERROR CALL 
;DATA PATTERN NOT CORRECT 

; BRANCH AROUND ry get? CLEAR INSTRUCTIONS 


; ECEIVER 

[ADD INCREMENT/DECREMENT VALUE TO R3 
;SUBTRACT 1 AND BRANCH IF 4K NOT CHECKED 
:MAP TO NEXT 4K BLOCK 


RO,9$ 
6(SP) 
17 


$ 
#10,SP 


021306 $SEOP . 
017776 000006 17$: #17776 ,6(SP) 


;BRANCH BACK IF MORE BLOCKS TO CHECK 
;TEST TO SEE IF THIS IS SECOND PASS 
;BRANCH TO 2ND PASS SETUP IF NOT 

;CLEAN UP STACK 
; JUMP TO END OF 


PASS 
MOVE 2K WORDS -2 (ALSO 2ND PASS INDICATOR) TO STACK 


CKKUABO 11/44 UBI MAP 


2831 017640 012766 
2832 017646 013766 
2833 017654 012716 
2834 017660 000660 


mM 10 
MACRO M1113 05-NOV-80 14:09 PAGE 87-2 SEQUENCE 105 
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177600 000004 
001262 000002 
177776 


#-200,4(SP) sMOVE REVERSE PAR STEP TO STACK 
UBMHI ,2(SP) :MOVE LAST PAR VALUE TO STACK 
#-2, (SP) “MOVE DECREMFNT VALUE TO STACK 
6$ :BRANCH BACK FOR SECOND PASS 


SEQ 0129 


N 10 
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PRETEST DATA SETUP SUBROUTINE SEQ 0130 


2835 
8 


-SBTTL PRETEST DATA SETUP SUBROUTINE ian ~ 4 


FRR AAA RARER AAAAEETAEAAATHA EH TERAEREAHEREREKAAARAKAAAAAAAReRe TS 


2837 017662 013777 001100 161262 BRETST: oa STSTNM,@DISPLAY :DISPLAY TEST NUMBER FOR ALL TO SEE ¢ 

2838 017670 010046 MOV RO, -(SP) AVE RO 

2839 017672 016600 000002 MOV 2($P),RO MOVE ORIGINAL RETURN ADDRESS TO RO , 

2840 017676 012037 001346 MOV (RO)+,NXTTST ;SAVE STARTING ADDRESS OF NEXT TEST FOR: ESCAPE ON PAR ERRORS 
2841 017702 012037 001106 MOV (RO) +, SLPERR ;SET LOOP ON ERROR POINTER TO 20$ 

2842 017706 012037 001100 MOV (RO) +, STSTNM :SETUP TEST NUMBER AND CLEAR THE ERROR FLAG 

2843 017712 010066 000002 MOV RO,2(SP) ;FUDGE RETURN OVER DATA ‘ 

2844 017716 012600 MOV (SP)+,RO sRESTORE RO 

2845 017720 011637 001104 MOV (SP) ,$LPADR ;SET LOOP ON TEST POINTER TO START OF TEST 

2846 017724 000207 RTS PC ;RETURN TO TEST 


[oo acsenemttimcinsiaannitithe tis cite <tdinnnntaiai scaeasnenaansatsinsomtbensrina 


| 2 “ad kp 
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/PRETEST DATA SETUP SUBROUTINE SEQ 0131 
eer 020000 -=20000 ;THE APT TABLES NEED TO START AT 20000 = THIS STATEMENT DOES THAT 
2849 177777 ADDWO= 177777 


2850 177777 ADDWi= 177777 





SSS SSS se sss 


CKKUABO 11/44 UB 
APT PARAMETER BL 


2851 


000024 
000044 


020000 


020012 


1 . 
OCK 


¢20000 
020000 
000000 


000052 


C 11 
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SEQ 0132 


» SBTTL APT PARAMETER BLOCK 


SRRRORARAAAAAEEEAEHERAAEHAETEEEEAARAARKRRATKE HHA AAKAHARAAHAA ATS 


:8E1 LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


SRERHHRAAAAAHEEAAARERARAAEAAAAHAAEAAAEARAAAARATARERAAAHERAATAAHATEEE 


;;SAVE CURRENT LOCATION 
;;SET POWER Aat U i POINT TO START OF PROGRAM 
+3 FOR APT STAR 
;;POINT TO ier INDIRECT ADDRESS PNTR. 
;POINT TO APT HEADER BLOCK 
 TRESET LOCATION COUNTER 


FERRARA EREREEAE AREER EAAEEEEAAAHEAAARAAERAREREAKARARAARAEEEE 


SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 


; INTERFACE SPEC. 
SAPTHD : 


;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 


0 3 
Shalt ;;ADDRESS OF APT ort ale 0-15) 


3;RUN TIM OF LONGEST TE 
10 +0 TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
0 DDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
SETEND-ShAIL/2 3zLENGTH MAILBOX-E TABLE (WORDS) 


CKKUABO 11/44 UBI MAP 
APT MAILBOX-E TABLE 


2853 


020014 


020042 


020044 
020045 


020046 
020050 


020106 


000000 


000000 
000 
000 

000000 

000000 

000000 


000 
000 


000000 


000000 
000000 
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-SBTTL APT MAILBOX-ETABLE 


$CPUOP: . 


re 


Pee Se Oe OTe te ee eee 
a epee BBeeeenenee 
=> 
= 
nw 
— 


$DDW3: 


AMSGTY 


ACPUOP 


AMAMS1 
AMTYP1 


AMADR1 
AMAMS2 


sR HHARRRAERHEHEHEHHRHAHHEHEAEKAAAHAAAAREKEH AHH eeKHeHeeeeee Hees 


3;APT MAILBOX 

3;MESSAGE TYPE CODE 

:;FATAL ERROR NUMBER 
T NUMBER 


; E 

3;APT ENVIRONMENT TABLE 

3s ENVIRONMENT BYTE 

: ENVIRONMENT MODE BITS 

3; APT SWITCH REGISTER 

3;USER SWITCHES 

3;CPU TYPE, the 

BITS 15- hy CPU T 
11/04=01, "1/05 02,11/20=03,11/40=04,11/45=05 
11/70= 06; PD 17 ,a=10 

BIT 10=REAL TIME CLOC 

BIT 9=FLOATING POINT PROCESSOR 

BIT 8=MEMORY "na bite 


him. TYPE BYTE -- (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MO0S=003 
3;HIGH ADDRESS,BLK41 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 
;;HIGH ADDRESS,M.S. BYTE 
3; MEM. TYPE BLKA2 
3;MEM.LAST ADDRESS,BLK&2 
3;HIGH ADDRESS,M.S.BYTE 
7 MEM. TYPE, ,BLK&#3 
7;MEM.LAST ADDRESS, BLK&3 
3;HIGH ADDRESS,M.S.BYTE 
3 MEM. TYPE ,BLK&4 
3;MEM.LAST ADDRESS ,BLK&4 
>; INTERRUPT VECTOR#1,BUS PRIORITY#1 
3; INTERRUPT VECTOR#2BUS PRIORITYA2 
rice nae OF EQUIPMENT UNDER TEST 
: CONTROLLER DESCRIPTION WORD#1 


; DEVICE DESCRIPTOR WORD#0 
: DEVICE DESCRIPTOR WORDA#1 

VICE DESCRIPTOR WORD#2 
DEVICE DESCRIPTOR WORDM5 


SEQ 0133 


— 11 
000000 $DDW4: .WORD ADDWS  ;;DEVICE DESCRIPTOR WORD#4 
000000 $D0DW5: .WORD ADDWS ;;DEVICE DESCRIPTOR WORDMS «SEQ 0134 
000000 SDDW6: .WORD ADDW6 ;;DEVICE DESCRIPTOR WORD#6 
000000 $DDW7: .WORD ADDW7 ;;DEVICE DESCRIPTOR WORD#7 
000000 $DDW8: .WORD ADDWB ;;DEVICE DESCRIPTOR WORD#8 
000000 $DDW9: .WORD ADDW9 ;;DEVICE DESCRIPTOR WORD#9 


* 


F 11 
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APT MAILBOX~E TABLE SEQ 0135 
020124 000000 $DDW10: .WORD ADDWI0 ;;DEVICE DESCRIPTOR WORD#10 
020126 000000 SDDW11: .WORD ADDW11 ;;DEVICE DESCRIPTOR WORD#11 
020130 000000 SDDWI2: .WORD ADDWI2 ;;DEVICE DESCRIPTOR WORD#12 
020132 000000 SDDWI3: .WORD ADDWI3 ;;DEVICE DESCRIPTOR WORDA#13 
020134 000000 $SDDW14: .WORD ADDW14 ;;DEVICE DESCRIPTOR WORD#14 
020136 000000 $DDW15: .WORD ADDW15 ;;DEVICE DESCRIPTOR WORD#15 


020140 SETEND: 


CKKUABO 11/44 UBI MAP 
SCOPE HANDLER ROUTINE 


2855 


020140 


020242 
020244 
020246 


020354 


005037 


000416 
013746 


000426 
032777 


001404 


G 11 
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001344 


040000 


000004 


000004 


000004 


000400 
160632 
000340 
001100 
001101 
001113 


001000 


001240 


160706 


000004 


160640 


001101 
160574 


» SBTTL SCOPE HANDLER ROUTINE 


SEQ 0136 


peeeeeeeeteeeeeetereeeetrretereeeeeeeeeneeteteeeeKerereneneneees 


SaTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. 


IT WILL INCREMENT 


7*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
THE SWITCH wl PROVIDED BY THIS ROUTINE ARE: 


ON TEST 
INHIBIT ITERATIONS 


+ *SW14= 1 

*Swil= 1 
*SW09=1 
3*SwO08=1 
7 *CALL 


;* 
SSCOPE: 


B 
; MARRASTART 


XTSTR: 


23: 


BR 


LOOP ON ERROR 


LOOP ON TEST IN SWR<4:0> 
;;SCOPE=10T 


ADDROR+2 
PATTOR 
#-1,DATAND 


#-1,PATAND 

#77, EADRES+2 
#77 ,EADRS2+2 
#40000,aSwR 


SOVER 
OF coe FOR THE XOR 


Q#ERRVEC ,- (SP) 


#5$, avERRVEC 
a#i?7 


$SVL 
(SP)+,(SP)+ 


ha ,@#ERRVEC 


060 
(SP)+,@#ERRVEC 
AD 


;CLEAR RETRY FLAG AN THE START OF EACH TEST 

>CLEAR THE MULTIPLE ERROR COUNTER 

ZLOCATION FOR LOGICAL OR OF BAD DATA 

:LOCATION FOR LOGICAL OR OF ADDRESS 

LOCATION FOR UPPER 6 BITS OF LOGICAL OR OF ADDRESS 
;LOCATION FOR LOGICAL OR OF PATTERN LOADED 
;LOCATION FOR LOGICAL AND OF BAD DATA 

LOCATION FOR LOGICAL AND OF ADDRESS 

;LOCATION FOR UPPER 6 BITS OF LOGICAL AND OF ADDRESS 
;LOCATION FOR LOGICAL AND OF PATTERN LOADED 

;RESTORE UPPER 6 BIT LOCATION OF EADRES+2 

SRESTORE UPPER 6 BIT LOCATION OF EADRS2+2 

:@& LOOP ON PRESENT TEST? 

:8& YES IF Sw14=1 


Tesrenseses 


;1F RUNNING ON THE ‘'XOR'' TESTER CHANGE 

‘THIS INSTRUCTION TO A ‘'NOP’’ (NOP=240) 
SAVE THE CONTENTS OF THE ERROR VECTOR 
3;SET FOR TIMEOUT 
+3 TIME OUT ON XOR? 

se te THE ERROR VECTOR 

;GO TO THE NEXT TEST 

;CLEAR THE STACK AFTER A TIME OUT 

: IRESTORE THE ERROR VECTOR 

LOOP ON THE PRESENT TEST 


7 
CODE FOR THE xoR’ TESTERAAMAR 


#B1T08 ,aSwR 
2$ 


aSwR ,-(SP) 
#SSWRMK, (SP) 
(SP)+,STSTNM 


3$ 
etre ns 


3 
#B1T09,aSwR 
4$ 


& LOOP ON SPEC. TEST? 
F NO 


:°B I 
“88 SET DESIRED TEST NUM. FROM SWR 
“STRIP AWAY UNDESIRED BITS 
::0N THE RIGHT TEST? 

::BR IF YES 

+ SHAS AN ERROR OCCURRED? 


3:BR N 
fe —— FOR THIS TEST OCCURRED? 


if N 
‘ie LOOP ON ERROR? 
>:BR IF NO 





020356 
020364 


020400 


013757 


032777 


001106 


001101 
001210 


004000 


001104 


160542 


7$: 
4%: 


H 11 
SLPERR,SLPADR 
SOVER 


SERFLG 
Nie 


1 
#B1T11,aSwR 


3;SET LOOP ADDRESS TO LAST SCOPE 


::JERO THE ERROR FLAG 

S;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
“ESCAPE TO THE NEXT TEST 

be INHIBIT ITERATIONS? 


SEQ 013? 


CKKUABO 11/44 UBI MAP 
SCOPE HANDLER ROUTINE 


020516 


001011 


000002 


MACRO M1113 05-NOV-80 14:09 


020022 


001104 


001102 


001102 
001210 


020020 


001113 
160442 


1$: 


SSVLAD: 


SOVER: 


SMXCNT: 


R 
é. 


1 11 
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1$ 

SPASS 

1$ 

SICNT 
STIMES,SICNT 
SOVER 

#1 ,S1CNT 
SMXCNT,STIMES 
STSTNM 
STSTNM,STESTN 


(SP) ,SLPADR 
(SP) ,SLPERR 


$TSTNM, @DISPLAY 
SLPADR, (SP) 


::BR IF YES 
iit FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
i INCREMENT ITERATION COUN 
:iCHECK T HE NUMBER OF A PURAT IONS MADE 
F MORE ITERATION REQUIRED 
: REINITIALIZE THE ITERATION COUNTER 
:3SET NUMBER OF ITERATIONS TO DO 
“COUNT TEST NUMBERS 
ibe SET TEST # IN APT MAILBOX 
:SAVE SCOPE LOOP ADDRESS 
:ISAVE ERROR LOOP ADDRESS 
[:CLEAR THE ESCAPE FROM ERROR ADDRESS 
::ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
"88 DISPLAY TEST NUMBER 
: FUDGE RETURN ADDRESS 
ssFIXMES PS 
::MAX. NUMBER OF ITERATIONS 


SEQ 0138 


CKKUABO 11/44 UBI MAP 
ERROR HANDLER ROUTINE 


2857 


020520 


020570 


020576 
020604 


020722 


113737 


013777 


032777 


005037 


J 11 
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001100 


001101 
001100 


002000 
001214 


020000 
002012 
001221 
000001 


001112 
021056 


160240 
000200 
001302 


001310 


160354 


160344 


020034 
020700 


160174 


SEQ 0139 


-SBTTL ERROR HANDLER ROUTINE 
sRRAReeeeeeeeeKeKeKeeeeeeeeeeeeeeeareaeeeeNKereteneneeeeererenes 
;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO ERTYPE ON ERROR 


s*THE SWITCH etd + on anes BY THIS ROUTINE ARE: 


:*SW15=1 T ON ERR 

;* WALT CAN OCCUR BEFORE AND AFTER THE ERROR TYPEOUT 

+ *SW13=1 INHIBIT ERROR TYPEOUTS 

*SW10=1 BELL ON ERROR 

= *#SwO9=1 LOOP ON ERROR 

i #CALL 

Sais ERROR N sERROR=EMT AND N=ERROR ITEM NUMBER 
MOVB  $TSTNM,TESTNO ;SAVE TEST NUMBER FOR ERROR TYPE OUT 
INC ERRCNT :COUNT ALL MULTIPLE ERRORS 
MOV RO, $REGO >SAVE RO FOR POSSIBLE TYPE OUT 
MOV R1,$REG1 =SAVE R1 FOR POSSIBLE TYPE OUT 
MOV R2,$REG2 :SAVE R2 FOR POSSIBLE TYPE OUT 
MOV R3,$REG3 =SAVE R3 FOR POSSIBLE TYPE OUT 
MOV R4,$REGS “SAVE R4 FOR POSSIBLE TYPE OUT 
MOV RS, $REGS :SAVE RS FOR POSSIBLE TYPE OUT 

7$: INCB = $SERFLG i3SET THE ERROR FLAG 
BEQ 7$ “DON'T LET THE FLAG GO TO ZERO 
MOV $TSTNM,@DISPLAY $e DISPLAY TEST NUMBER AND ERROR FLAG 
:TST = aSwR :@& HALT ON ERROR = 17\ 
3BPL 8$ : BRANCH i NO >(REMOVED FOR CKKUAB) 
“HALT -YES==HA 

8S: BIT #B1T10,aSWR ‘$e BELL ON ERROR? 
BEQ 1$ ::NO - SKIP 
TYPE »$BELL ::RING BELL 

1$: INC $ERTTL >:COUNT THE NUMBER OF ERRORS 
MOV (SP) , SERRPC +:GET ADDRESS OF ERROR INSTRUCTION 
SUB #2, SERRPC 
MOVB  a$ERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #BIT13,aSWR be SKIP TYPEOUT IF SET 
BNE 2$ =SKIP TYPEOUTS 
JSR PC ,ERTYPE £60 TO USER ERROR ROUTINE 
TYPE /SCRLF 
CMPBs#1, SEN :@& 1S THIS APT? 
BNE 23 388 NO 
MOVB $I1TEMB,21$ 88 
JSR PC, $SATY4 88 

21$: .BYTE 0 88 
BYTE 0 44 

22$: BR 22% 88 

2$: TST aSwR *8& HALT ON ERROR 
BPL $ “SKIP IF CONTINUE 
BIT #B1T7, aSERRPC £2 LOOK AT ERROR AND SEE IF A *#2XX ERROR 
BEQ 25$ ‘8% BRANCH IF NOT TO HALT 


CLR ERRCNT :@& CLEAR ERROR COUNT SO RESTART PRINTS ANOTHER HEADER 


020726 000000 25$: HALT 

020730 022737 021534 000042 9$: CMP MSENDAD ,42 
020736 001001 BNE 3$ 

020740 000000 HALT 

020742 032777 001000 160200 3$: BIT #B1T09,aSwR 
020750 001402 BEQ 4% 


K 11 


;;HALT ON ERROR! 
s;ACT=11? 


BRANCH IF NO 
8% LOOP ON ERROR SWITCH SET? 
:;BR IF NO 


SEQ 0140 


a 


‘CKKUABO 11/44 UB] MAP 
ERROR HANDLER ROUTINE 


Ss esses esse ets 


020752 


013716 


013716 
032777 


000002 
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001106 
001212 


001212 


001000 


177777 
177776 
177777 
177777 
177777 


160152 
177766 


4$: 


5$: 


1000$: 


SLPERR, (SP) 
cane 


5 

SESCAPE, (SP) 
#SW9 ,aSwWR 
10008 


#-1,CPUER 
#177776, WrAO 
#-1, TOFLAG 
-1,CPFLAG 
#-1.MMFLAG 


L 11 
SEQUENCE 114 


7;FUDGE RETURN FOR LOOPING 
oie 4 ge ESCAPE ADDRESS 
FUDGE RETURN ADDRESS FOR ESCAPE 


sARE WE tn ON THIS ERROR? 

;BRANCH IF N 

:CLEAR CPU ERROR REGISTER 

:CLEAR MEMORY MANAGEMENT STATUS REGISTER 
s INITIALIZE TRAP FLAG 

: INITIALIZE CP TRAP FLAG 

; INITIALIZE MEMORY MANAGEMENT TRAP FLAG 
:RETURN TO TEST 


SEQ 0141 


ee — — 


CKKUABO 11/44 UBI MAP 
APT COMMUNICATIONS ROUTINE 


2859 
021040 


oO 
mror 
— 2 — 
oa 
= 


WWN— 





SSENGENSRSNOE 


AOS. 


021304 


000000 
105737 


M11 
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000001 
000001 


000001 


021302 
000001 
000100 
000004 
000002 
020014 


020030 


020030 


020032 
000004 


000004 
000002 
177776 
002674 
021304 
020034 
020014 


000004 


021302 


021304 
021302 


021304 


020034 
020035 


000004 


020014 


021214 
000004 


020016 
000004 


-SBTTL APT COMMUNICATIONS ROUTINE 


SPAR AAKEAKEAHAAAKKeAAeeeeeeeeeeeeeeKeReeKeeeeeeeteRAeeeRereLenes 


$ATY1: MOVB 
SATY3: MOVE 


B 
SATY4: MOVB 
SATYC: 


1$: TST 


2$: TSTB 


12$: CLRB 


-EVEN 
APTSIZE=200 


APTENV=001 
APTSPOOL=100 
APTCSUP=040 


$ 

#1, SFFLG 
RO,-(SP) 
R1,-(SP) 
_ 
pera 
patos mena 
a4(SP) ,RO 
#2,4(SP) 
SMSGTYPE 

1$ 


RO, SMSGAD 
(RO)+ 


2§ 
SMSGAD ,RO 
RO 


RO, SMSGLGT 
> ateraibi 


a4(SP),4$ 
#2,4(SP) 
177776, -(SP) 
PC, STYPE 
SFFLG 
12$ 
SENV 
12$ 
SHSGTYPE 
11$ 
a4 (SP), SFATAL 


#2,4(SP) 
SMSGTYPE 


3;TO REPORT FATAL ERROR 
3370 TYPE A MESSAGE 


33710 ONLY REPORT FATAL ERROR 


3;PUSH RO ON STACK 
:;PUSH R1 ON STACK 
+s SHOULD TYPE A MESSAGE? 


F NOT: BR 
; ;OPERATING UNDER APT? 
NOT: BR 
; 3 SHOULD SPOOL MESSAGES? 
NOT: BR 


:3GET MESSAGE ADDR. 
;;BUMP RETURN ADDR. 
ase IF DONE W/ LAST XMISSION? 
F NOT: WAIT 
:;PUT ADDR IN MAILBOX 
;3FIND END OF MESSAGE 


;;SUB START OF MESSAGE 

;:GET MESSAGE LNGTH IN WORDS 
3;PUT LENGTH IN MAILBOX 
3;TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
BUMP RETURN ADDRESS 

> PUSH 195976 ON STACK 

>:CALL TYPE MACRO 


oy F “* % FATAL ERROR? 
; NOT 
; ;RUNNING UNDER APT? 


NOT: BR 
ii FINISHED LAST MESSAGE? 
3:1F NOT: WAIT 


33GET ERROR cy 

;BUMP RETURN ADDR. 
33 TELL abi TO TAKE ERROR 
::CLEAR FATAL FLAG 
3;CLEAR LOG FLAG 
3; CLEAR MESSAGE FLAG 
:;POP STACK INTO R1 
:;POP STACK INTO RO 
3 RETURN 
3:MESSG. FLAG 
7;LOG FLAG 
sc FATAL FLAG 


SEQ 0142 


CKKUABO 11/44 UBI MAP 
END OF PASS ROUTINE 


2861 


021306 000004 
177572 
172516 


001100 


37 22 
021336 042737 100000 


021356 021346 


021360 104400 021366 
021364 000407 
021366 015 012 


021404 
021404 013746 020022 


021410 104410 
021412 005737 001110 


021420 104400 021426 
021426 040 040 


021470 
021470 013746 001110 


104410 

021476 104400 001221 
021502 005037 001110 
021506 013700 000042 


021512 001414 
021514 005046 
021516 012746 021524 
021522 000427 


020022 


105 


124 


‘*1F THERE ISN'T 
$EOP: 


D 
SEOPCT: .WORD 
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MACRO M1113 O5-NOV-80 14:09 PAGE 100 SEQUENCE 116 


» SBTTL END OF PASS ROUTINE 

UCAS TIS T TI Li Scie lit iii tii iiiiiiiiitiitiiiiiiiitiiiiiyy 
:*INCREMENT THE PASS NUMBER ($PASS) 

;*INDICATE END-OF PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

S*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT yyvvy" 
ZOMMERE  KXXKK AND YYYYY . > ata NUMBERS 

ie 


JUMP TO LOOP 


;LOOP ON LAST TEST 
CLR MMRO ; TURN OFF FULL wo geod ye 
MMR3 ;DISABLE THE UNIBUS 
sRESTORE THE T BIT IF at WAS ON 
CLR STSTNM :;2ERO THE TEST NUMBER 
CLR STIMES ++ ZERO THE NUMBER OF ITERATIONS 


INC SPASS er ee THE PASS NUMBER 
BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
EC (PC) + 3; LOOP? 


1 
BGT $SDOAGN 77 YES 
MOV (PC)+,a(PC)+ :;RESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
SNEXT: 
TYPE 65% ii TYPE ASCIZ STRING 
BR 64$ :GET OVER THE ASCIZ 
5$: SASCIZ <15><12>/END PASS #/ 
~EVEN 
64$: 


MOV $PASS,-(SP) 37SAVE SPASS FOR TYPEOUT 

3; TYPE PASS NUMBER 
TYPDS 3:G0 TYPE--DECIMAL ASCII WITH SIGN 
TST SERTTL 


BEQ 70$ ;! BRANCH OVER on REPORT IF NONE 
TYPE ,67$ 33 TYPE ASCIZ STRING 
BR 66% 3GET OVER THE ASCIZ 
Se eASCIZ / TOTAL ERRORS SINCE LAST REPORT / 
66$: 
MOV SERTTL,-(SP) ;7;SAVE SERTTL FOR TYPEOUT 
7: TOTAL NUMBER OF ERRORS 
TYPDS 3:G0 TYPE--DECIMAL ASCII WITH SIGN 
70$: TYPE SCRLF 3: TYPE CARRIAGE RETURN, LINE FEED 
CLR SERTTL 3;CLEAR ERROR TOTAL 
$GET42: MOV a#42,R0 33:GET a ADDRESS 
BEQ $SDOAGN . oor IF NO MONITOR 
CLR -(SP) s INSURE THE ‘T'’ BIT is CLEAR 


MOV #SCLR.T,-(SP) 3;SETUP FOR AN RTI OR RIT 
BR SRTRN 3:G0 DO AN RTI OR RTT TO LOAD THE PSwW 
s;WITH A CLEARED ‘'T’’ BIT 


;: SEE IF THERE WERE ANY ERRORS THIS PASS 


SEQ 0143 


$CLR.T: 
013700 000042 MOV a#42,PR0 zs; INSURE RO CONTAINS THE MONITORS SEO 0144 
001405 BEQ - S$DOAGN 3 RETURN ADDRESS 
000005 RESET :;CLEAR THE WORLD 
004710 SENDAD: JSR PC, (RO) :;60 TO MONITOR 


000240 NOP 7;SAVE ROOM 
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‘END OF PASS ROUTINE SEQ 0145 
921540 000240 NOP seFOh 
021542 000240 NOP pACTN1 
021544 SDOAGN: 
021544 013746 177776 MOV a#Ps,-(SP) ¢¢PUT THE PS ON _ STACK AND 
| 021550 042716 000020 BIC #20, ($P) “CLEAR THE "'T'’ BIT 
| 021554 032777 010000 157366 BIT  #BIT12,asuR ibe RUN WITH TRACE TRAP? 
| 021562 001005 BNE 18 ;BR IF 
| 021564 005137 021610 COM = $TBIT at IT TIME FOR TRACE TRAP 
| 021570 100402 BM1 «I$ :BR IF NO 
021572 052716 000020 BIS #20, (SP) r:SET TRACE TRAP 
021576 012746 021604 1$: MOV #$LOOP ,-(SP) ;;JUMP_ TO START OF TEST 
021602 000002 SRTRN: RTI a Ad nn orks a IS CHANGED TO 
“RIT IF RTT’ IS A LEGAL 
t INSTRUCT ION 
021604 SLOOP: 
021604 000137 010510 JMP_ a#LOOP ; RETURN 
021610 000000 $TBIT: .WORD 0 33''T'' BIT STATE INDICATOR 
021612 377 377. 000 $ENULL: y “1,-1.0 ;;NULL CHARACTER STRING 
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SUBROUTINES UNIQUE TO TEST #7 ONLY SEQ 0146 


2863 .SBTTL SUBROUTINES UNIQUE TO TEST #7 ONLY 
2864 SAREE RAE RE RARER AEAAE EERE OE AAEAREARERAAAERERERHANHAAAHEAEREERE 

2865 SERRA AAA REEAEAEEEAEEAEEAET HE EREEHERAEREREARAAEHEERAREEREAR EEE 

2866 yt 
2867 ;* THIS SUBROUTINE CHECKS THE STATUS OF THE BIT POINTED TO IN FLOATR 

2868 ;* IN THE LOCATION POINTED TO BY RS (EITHER $DDWO OR $DDW1), AND DETER- 

869 ;* MINES IF THE LOCATION SHOULD BE DISABLED. 

2870 021616 105737 020034 DSABLD: TS1B SENV :TEST APT STATUS 

2871 021622 001411 eco’ 1$ ‘BRANCH IF NOT APT 

2872 021624 105737 020035 TSTB SENVM :DOES APT SAY TO SIZE 

2873 021630 100006 BPL 1$ sBRANCH TO EXIT IF NOT 

2874 021632 033715 006154 BIT FLOATR, (RS) :TEST DISABLE STATUS 

2875 021636 001403 BEQ 1$ ;BRANCH IF IT SHOULD BE DISABLED 

2876 021640 011537 001174 MOV (R5),$TMP1 :MOVE CONTENTS OF DEVICE DESCRIPTOR WORD TO $TMP1 
2877 021644 000402 BR 2$ sBRANCH OVER RETURN CORRECTION 

2878 021646 062716 000002 1$: ADD #2, (SP) SCHOCOLATE FUDGE RETURN OVER ERROR CALL 

879 021652 000207 2$: RTS PC ;RETURN WITHOUT CORRECTING STACK SO ERROR WILL CALL 
2881 FERRER ERROR AEAE EERE REA EEE EERE EAA ARERERARAREARERERAEHRERAREEH 

2882 jt THIS SUBROUTINE CHECKS THE STATUS OF THE BIT POINTED TO IN FLOATR 

2883 it IN THE LOCATION POINTED TO BY RS (EITHER $DDWO OR $DDW1), AND DETER- 

2884 3* MINES IF THE LOCATION SHOULD BE pENABLED 

2885 021654 105737 020034 ENABLD: TSTB SENV :TEST APT STATUS 

2886 021660 001411 BEQ 1$ anetn IF NOT APT 

2887 021662 105737 020035 TSTB SENVM :DOES APT SAY TO SIZE 

2888 021666 100006 BPL 1$ sBRANCH TO EXIT IF NOT 

2889 021670 033715 006154 BIT FLOATR, (RS) sTEST DISABLE STATUS 

2890 021674 001003 BNE 1$ sBRANCH IF IT SHOULD BE ENABLED 

2891 021676 011537 001174 MOV (R5),$TMP1 *MOVE CONTENTS OF DEVICE DESCRIPTOR WORD TO $TMP1 
2892 021702 000402 BR 2$ ;BRANCH OVER RETURN CORRECTION 

2893 021704 062716 000002 1$: ADD #2, (SP) :VANILLA FUDGE RETURN OVER ERROR CALL 

000207 a8 RTS RETURN WITHOUT CORRECTING STACK SO ERROR WILL CALL 


2894 021710 
2895 
5896 


s sendnederboinendsddesabansedichalatrceranettastesetbotensteette 
FERRARA AREER EATER A AAA KERKeReKeKeeKeE AeA e 


‘ASCII AND ERROR MESSAGES 


CKKUABO 11/44 UBI MAP 


2910 021771 


MACRO M1113 05-NOV-80 


~SBTTL 
«RADIX 


PATRNS: . 


_— Oo 

—NO 

INWIOS 
—_ 
— 
oa 


UBMEND : 


E 12 
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ASCII AND ERROR MESSAGES 

2 § ENABLES YOU TO SEE THE BIT PATTERNS BELOW 
WORD METETETL ET titi sALL BITS SET 

WORD 0000000000000000 ‘ALL BITS CLEAR 

-WORD 1010101010101010 [00D BITS SET, EVEN BITS CLEAR 
WORD 1010101010101 SEVEN BITS SET, ODD BITS CLEAR 
“WORD 0011001100110011 “ALTERNATING PAIRS OF BITS SET 
“WORD 0000111100001111 SALTERNAT ING GROUPS OF 4 BITS SET 
“WORD 0000000011111111 LOWER BYTE SET. UPPER BYTE CLEAR 
8 THIS RETURNS ModE BACK TO OCTA 

-BYTE 0,0,0,0,0 L NUMBERS ARE To BE PRINTED IN OCTAL 
“ASCIZ <CRLF>2UNIBUS mehonY AVAILABLE = 

SASCIZ 2 K2<CRLFD 


SEQ 0147 
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ASCII AND ERROR MESSAGES SEQ 0148 
$3) 021775 104 111 101 CPUMSG: .ASCIZ seeeecht>. HAS DETERMINED THAT CPU IS AN 11/? 
2912 022052 062 064 200 ELEV24: .ASCIZ 2242<C 
2913 022056 064 064 200 ELEV44: .ASCIZ raLtCCRLFD 
2914 022062 116 117 124 EMI: -ASCIZ 2NOT THE CORRECT TRAP CONDITION THROUGH ERRVEC (#004)? 
2915 022147 125 116 105 EM2: -ASCIZ 2UNEXPECTED CPU TRAP THROUGH ERRVEC (#004)? 
2916 022221 125 116 195 EM3: -ASCIZ 2UNEXPECTED MEMORY MANAGEMENT TRAP, MEMORY MANAGEMENT STATUS REGISTERS? 
2917 022327 123 125 115° EM4: “ASCIZ 2SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ? 
2918 022407 123 125 115 EMS: -ASCIZ 2SUMMARY OF DUAL ADDRESSING ERRORS ON LOADING MAP REGISTERS? 
2919 022502 123 125 115 EM6: -ASCIZ 2SUMMARY OF BIT PATTERN FAILURES IN LOWER 16 BITS OF MAP REGISTERS? 
2920 022604 123 125 115 EM?: -ASCIZ bya! OF BIT PATTERN FAILURES IN UPPER 6 BITS OF MAP REGISTERS? 
2921 022705 103 101 116 EM10 «ASCII 2CAN'T GET TO MAIN MEMORY FROM UNIBUS WITH THE MAP OFF ?<CRLF> 
} 2922 022773 123 117 040 -ASCIZ ?S0 I'LL JUMP TO THE SIZE JUMPER TEST FOR VERIFICATION? 
2923 023061 123 125 115 EM11 -ASCIZ 2SUMMARY OF COUNT PATTERN FAILURES ON THE UNIBUS DATA PATH? 
2924 023153 125 116 111 EM12 -ASCIZ 2UNIBUS MAP IS RELOCATING WHEN NOT ENABLED? 
2925 0232 103 101 116 —M13 -ASCI1 ?CANNOT USE ANY OF THE MAP REGISTERS OR PHYSICAL?<CRLF> 
2926 023305 101 104 104 -ASCII 2ADDRESS BIT14 IS STUCK LOW, MUST RESTART PROGRAM?<CRLF> 
2927 023366 111 106 040 -ASCIZ 21F YOU DON’T LOOP ON THIS PROBLEM.? 
2928 023431 123 125 115 E—M14: .ASCIZ 2SUMMARY OF UNIBUS ADDRESS ERRORS, WITH THE MAP RELOCATION DISABLED? 
2929 023534 115 101 111 EM15: .ASCIZ 2MAIN MEMORY TIMEOUT OVER THE UNIBUS DID NOT OCCUR PROPERLY? 
2930 023627 122 105 114 €M16: .ASCIZ ?RELOCATION THROUGH THE MAP WAS NOT CORRECT, CARRY PROPAGATION? 
2931 023725 116 117 040 EM17: .ASCIZ ?2NO UNIBUS MEMORY EXISTS? 
2932 023755 111 116 124 EM20: .ASCIZ 2INTERRUPT/ABORT LOGIC TESTS TRAP TO LOCATION 114 DID NOT OCCUR? 
2933 024054 111 116 124 EM21: .ASCIZ 2INTERRUPT/ABORT TESTS R4 WAS OVERWRITTEN WITH? 
2934 024132 111 116 124 EM22: .ASCIZ 2INTERRUPT/ABORT TESTS TRAP DID NOT OCCUR DUE TO ABORT? 
2935 024220 114 115 101 FM23:  .ASCIZ 2LMA NOT LOADED PROPERLY? 
2936 024250 114 115 101 EM24: .ASCIZ 2LMA FORCE JUMPER BIT) NOT ZERO? 
2937 024306 114 115 101 €M25:  .ASCIZ LMA FORCE JUMPER BI¥ NOT SET? 
2938 024343 114 115 101 EM26: .ASCIZ ?LMA CONTROL BITS INCORRECT? 
2939 024376 106 117 122 EM27: .ASCIZ ?FORCE JUMPER BIT FAILS TO REVERT MAP meet te STATUS TO DEFAULT? 
2940 024476 113 111 120 EM30: .ASCIZ ?KIPARS NOT LOADED PROPERLY - SKIPPING NEYT TEST? 
2941 024556 124 110 105 €M201: .ASCIZ 2THE FOLLOWING REGISTERS TIMED OUT WHEN READ? 
2942 024632 124 110 105 €M202: .ASCIZ ?THE FOLLOWING ARE DUAL ADDRESSING ERRORS IN THE a MAP? 
2943 024725 124 110 105 €M203: .ASCIZ ?THE BIT PATTERN THROUGH THE MAP REGISTERS FAILED 
2944 025006 125 116 117. —M204: .ASCIZ ?UNIBUS DATA PATH COUNT PATTERN FAILURE? 
2945 025055 125 116 111 EMZ05: .ASCIZ ?UNIBUS ADDRESSING ERRORS, MAP RELOCATION DISABLED? 
2946 025137 104 101 124 €M206: <ASCIZ DATA PATTERN NOT CORRECT? 
2947 025170 122 105 106 EM207: .ASCIZ REFERENCED MAP REGISTER 0 WITH ADDRESS ONE BIT DIFFERENT THAN 17770200? 
2948 025277 115 101 120 EM210: .ASCIZ 2MAP REGISTER(S) UNDER TEST DID NOT RESPOND IN DUAL MAPPING TEST? 
2949 025377 122 105 114 €M211: .ASCII ?RELOCATION THROUGH THE MAP WAS NOT CORRECT, CARRY PROPAGATION?<CRLF > 
2950 025475 124 105 123 -ASCIZ 2TEST CODE BEING RUN OVER UNIBUS? 
2951 025535 115 101 111 EM212: .ASCII 2MAIN MEMORY TIMEOUT OVER THE UNIBUS DID NOT OCCUR PROPERLY?<CRLF> 
2952 025630 124 105 123 -ASCIZ ?TEST CODE BEING RUN OVER UNIBUS? 
2953 025670 115 101 120 €M213: .ASCIZ ?MAP REGISTER ENABLED WHEN DDW SAYS IT SHOULD BE DISABLED? 
2954 025761 115 101 120 E€M214: .ASCIZ 2MAP REGISTER DISABLED WHEN DDW SAYS IT SHOULD BE ENABLED? 
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DATA HEADERS - $EQ 0149 
2955 -SBTTL DATA ae 4: 
2956 026052 122 105 103 DH1: ASCIZ ?RECEIVO EXPECTD HE Ae ERR PC? 
2957 026111 122 105 103 DHe: ASCIZ PRECEIVD TESTNO ERR PC? 
2958 026140 123 124 101 DH3: «ASCII 2STATUS AUTOI/D VIRTUAL ?<CRLF> 
2959 026170 122 105 107 -ASCIZ 2REGISTR REGISTR ADDRESS TESTNO ERR PC? 
2960 026237 122 105 107 DH4: ASCII 2REGADRS REGADRS?<CRLF> 
2961 026261 040 042 117 -ASCIZ %, "AND"’ MERRORS TESTNO ERR PC? 
2962 026334 122 105 107 DHS: -ASCII ?REGLOAD REGLOAD REGDUAL Se ake 
2963 026402 040 042 117 -ASCIZ “*AND"* "OR" AND"’ MWERRORS TESTNO? 
2964 026471 115 101 120 DH6: ASCII *MAPREG MAPRES EXPECTD ‘ae i th RECEIVD?<CRLF> 
2965 026555 040 042 117 eASCIZ =? _"‘OR™ "*AND"’ OR’ AND"’ ""AND'' MERRORS TESTNO? 
2966 026660 124 105 123 DH10:  .ASCIZ 2TESTNO ERR PC? 
2967 026677 105 130 120 DH11: .ASCII 2EXPECTD EXPEC TD RECEIVD AE aay fa 
8 026745 04 042 117 -ASCIZ 2 “‘OR" "OR" MERRORS TESTNO? 
2969 027034 103 117 116 DH15: .ASCII ?CONDITN CONDI TN?<CRLF> 
2970 027054 105 130 120 -ASCIZ 2EXPECTD RECEIVD TESTNO ERR PC? 
2971 027113 124 105 123 DH23: .ASCIZ ?TESTNO ERR PC LMAEXP LMARCV? 
2972 027154 124 105 123 DH24: .ASCIZ 2TESTNO ERR PC LMAEXP LMARCV? 
2973 027213 124 105 123 DH27: .ASCIZ 2TESTNO ERR PC LMARCV KIPAR4? 
2974 027252 124 105 123 DH30: .ASCIZ 2TESTNO ERR PC PRSEXP PRSRCV? 
2975 027311 122 105 107 DH201: .ASCIZ ?REGADRS TESTNO ERR PC? 
2976 027340 115 101 120 DH202: .ASCII ?MAPREG MAPREG NON-ZER?<CRLF > 
2977 027374 124 105 123 eASCIZ ?TESTING DUALED CONTNTS TESTNO ERR PC? 
2978 027447 122 105 107 DH203: .ASCIZ ?REGADRS PATTRN EXPCTD RECEVD TESTNO ERR PC? 
2979 027530 105 130 120 DH204: .ASCIZ 2EXPECTD RECEIVD ADDRSLOAD TESTNO ERR PC? 
2980 027601 101 104 104 DH205: .ASCII ADDRESS ADDRESS?<CRLF> 
2981 027623 105 130 120 -ASCIZ 2EXPECTD RECEIVD TESTNO ERR PC? 
2982 027666 101 104 104 DH206: .ASCIZ ADDRESS EXPCTD RECVED TESTNO ERR PC? 
2983 027736 101 104 104 DH207: .ASCIZ ?ADDRUSED BITDIFF TESTNO ERR PC? 
984 027777 124 105 123 DH210 ASCIZ 2TESTNO ERR PC MAPREGADR? 
2985 030031 103 117 122 DH211: .ASCII ?CORRECT  EXPECTD RECEIVD?<CRLF> 
2986 030063 101 104 104 -ASCIZ 2ADDRESS DATA FROM UB TESTNO ERR PC? 
2987 030134 103 117 116 DH212: .ASCII ?CONDITN CONDITN?<CRLF> 
2988 030154 105 130 120 -ASCIZ 2EXPECTD RECEIVD TESTNO ERR PC? 
2989 030213 124 105 123 DH213: .ASCIZ 2TESTNO ERR PC REG NO DDWDAT DDWADR? 
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DATA TABLES —  $&Q@ 0150 


2991 ~SBTTL DATA TABLES 

2992 030262 001314 001312 001310 T1: WORD PCPUER, CPUEXP, TESTNO,BADPC,0 

2993 030274 001314 001310 001324 DT2: "WORD PCPUER.TESTNO,BADPC,O 

2994 030304 001334 001336 001340 ODT3: » WORD PMMRO, PMMRI, OAR? TESTNO, BADPC,0 

2995 030320 001234 001230 001302 ODT4: WORD ADDROR, ADRAND, ERRCNT, TESTNO, SERRPC, 0 
2996 03033 001234 001230 001244 OTS: ~ WORD ADDROR, ADRAND ,DATAOR ,DATAND,ERRCNT,TESTNO,O 
2997 030352 001234 001230 001252 ODTé: » WORD ADDROR, re pref PATTOR,PATAND ,DATAOR,DATAND, ,ERRCNT,TESTNO,O 
| 3998 030374 001310 001114 000000 DT10:  .WORD TESTNO,SERRPC, 

2999 030402 001252 001250 001244 ODT11: » WORD PATTOR,PATAND ,DATAOR,DATAND,ERRCNT,TESTNO,O 
| 3000 030420 001234 001230 001244 DT14: ~ WORD ADDROR, ADRAND ,DATAOR,DATAND,ERRCNT,TESTNO,O 
| 3001 030436 001312 001314 001310 DT15: ~ WORD CPUEXP,PCPUER, TESTNO, SERRPC.0 
| 3002 030450 001310 001114 006144 D123: ~ WORD TESTNO, SERRPC ,EADRES ,EADRS2,0 
3003 030462 001310 901114 001160 DT24: ~ WORD TESTNO, SERRPC,SREG1, (MAHI, 0 

3004 030474 001310 001114 001172 DT26: ~WORD TESTNO, SERRPC,$TMPO,$REG2,0 

3005 030506 001310 001114 001172 DT27: ~WORD TESTNO, SERRPC,STMPO, KIPARG, 0 

3006 030520 01310 001114 001204 DT30: » WORD TESTNO,SERRPC, hae? KIPARS,0O 

3007 030532 006144 001310 001114 DT201: .WORD EADRES, TESTNO, SERRPC ,0 

3008 030542 006150 006144 001200 DT202: .WORD EADRS2,EADRES, SERPS TESTNO, SERRPC,0 

3009 030556 006150 01172 001166 DT203: .WORD EADRS2,$TMPO, $REG4, $REG3, TESTNO, SERRPC, 0 

3010 030574 001172 001174 001162 DT204: .WORD STMPO, $TMP1 , $REG2, TESTNO, wr C,0 


3011 030610 006144 006150 001310 DT205: WORD EADRES,EADRS2, TESTNO, SERR a 
3012 030622 006144 001202 001204 DT206: .WORD EADRES,STMP4, $TMPS, TESTO. SERRPC, 0 
3013 030636 006144 001156 001310 DT207: :WORD EADRES,$REGO,TESTNO, SERRPC 
3014 030650 001310 001114 006144 DT210: .WORD TESTNO, SERRPC ,EADRES 0 

64 001162 DT211: [WORD EADRES,$REG3,$REG2,TESTNO, SERRPC,0 
3016 030674 001312 001314 001310 DT212: :WORD CPUEXP.PCPUER, TESTNO, SERRPC ,0 
3017 030706 001310 001114 001172 DT213: .WORD TESTNO,SERRPC,STMPO,$TMP1, $REGS,0 


1 12 
-CKKUABO 11/44 UB] MAP MACRO M1113 05-NOV-80 14:09 PAGE 106 SEQUENCE 123 
DATA FIELDS —  $€Q 0151 


_ 3018 -SBTTL DATA FIELDS 

_ 3019 030722 000 000 Fi: -BY 0,0,0,0,0 

: 3020 030727 002 002 001 DF4: «BYTE 2,2,1,0,0 
3021 030734 002 002 002 DFS: -BYTE 2,2,2,2,1,0 
3022 030742 002 002 900 DF6: -BYTE 2,2,0,0,0,0,1,0 
3023 030752 000 000 000 DFI1: .BYTE 0,0,0,0,1,0 
3024 030760 002 002 000 OF14: .BYTE 2,2,0,0,1,0 
3025 030766 000 000 C02 DF23: .BYTE 0,0,2,2 
3026 030772 002 000 Q0GO DF201: .BYTE 2,0,0,0,0,0 
3027 031000 000 000 003 DdF204: .BYTE 0,0,3,0,0 
3028 031005 000 000 002 DF210: .BYTE 0,0,2 
3029 000001 END 
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ABASE = 
ACDW1 = 
= 


ACDW2 
/ ACPUOP= 


ADOW10 
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| ATESTN= 
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000000 
000000 
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000001 


140000 


030450. 


000100 


HITMIS= 
HT s 
IOTVEC= 
JMPMSG 
KDPARO= 
KDPAR1I= 
KDPAR2= 
KDPAR3= 
KDPAR4= 
KOPARS= 
KDPAR6= 
KDPAR7= 
KDPDRO= 
KDPDR1= 
KDPDR2= 
KDPDR3= 
KDPDR4= 
KDPDRS= 
KDPDR6= 
KDPDR7= 
KERSTK= 


MAPHO1 = 


fs 
: s 
{ 


177752 


mk et at ot ot ot 2 2 1 OF BO OS OO OO OO 


WAWAAIA 
—_~— 
aoErmo 


170206 


SEQ 0152 


K 12 


ANNIT = 006000 DFMSG 021730 D124 0304$2 FLAG 001306 MAPHO2= 170212 

AUSWR = 000000 DF 1 030722 D126 030474 FLOATR 006154 MAPHO3= 170216 SEQ 0153 
AVECT1= 000000 DF 11 030752 D127 030506 FTTHRU 005120 MAPHO4= 170222 

AVECT2= 000000 DF14 030760 DT3 030304 GMRMOD 907702 MAPHOS= 170226 

BADCPU 007446 DF201 030772 D130 030520 HIADRS= 177742 MAPHO6= 170232 

BADPC =001324 DF204 031000 DT4 030320 HIGEST 001256 MAPHO7= 170236 


ee 
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SYMBOL TABLE SEQ 0154 
/MAPH1 = 170206 MAPL27= 170334 PRS = 000240 SIZELO= 177760 TST1 010600 
|MAPHIO= 170242 MAPLS = 170214 PR6 = 000300 SPECST 006162 TST10 =©—.013440 
/MAPH11= 170246 MAPL30= 170340 PR7 == 000340 SPSUPP 002413 TST11 014130 
MAPH12= 170252 MAPL31= 170344 PS = 177776 SRO == 177572 TST12 §©014362 
MAPH135= 170256 MAPL32= 170350 PSW == 177776 SR1 0 = 177574 TST13, = 014544 
MAPH14= 170262 MAPL33= 170354 PWRMSG 004122 SR2. = : 177576 TST14 =014574 
MAPH15= 170266 MAPL34= 170360 PWRVEC= 000024 SR3— =_ 172516 TST15 §=014674 
MAPH16= 170272 MAPL35= 170364 RELC22 011600 SSP =%000006 TST16 =©014722 
MAPH17= 170276 MAPL36= 170370 RESREG= 104414 STACK = 001100 TST17 =. 014760 
MAPH2 = 170212 MAPL37= 170374 RESVEC= 000010 START 010000 TST2 011022 
MAPH20= 170302 MAPL4 = 170220 RETRY 001344 STKLMT= 177774 TST20 015010 
MAPH21= 170306 MAPLS = 170224 RSIZE 001342 SUPSTK= 000700 TST21 015352 
MAPH22= 170312 MAPL6 = 170230 Q =%000000 SWR 001150 TST22 015706 
MAPH235= 170316 MAPL7 = 170234 R11 + =%000001 SwO == 000001 TST23. 016112 
MAPH24= 170320 MASK1 006156 R12. =%000002 SwOO = 000001 TST24 016152 
MAPH25= 170326 MASK2 006160 R13 =%000003 $w01 = 000002 TST25 016352 
MAPH26= 170332 MEMERR= 177744 R14 =%000004 SwWO2 = 000004 TST26 016416 
MAPH27= 170336 MFPT = 000007 R15 =%000005 SwO3 = 000010 TST27 016616 
MAPHS = 170216 MMFLAG 004746 R3STAK 005530 $w04- = 000020 TST3 011400 
MAPH30= 170342 MMRHI 001266 R6 =%000006 SwOS = 000040 TST30 =©=.017010 
MAPH31= 170346 MMRLOW 001264 R7 =%000007 $W06 = 000100 TST31 =—017202 
MAPH32= 170352 MMRO = 177572 SAVREG= 104412 Sw07 = 000200 TST4 011710 
MAPH33= 170356 MMR1 = 177574 SCOPE = 000004 $sw08 = 000400 TST5 012130 
MAPH34= 170362 MMR2 = 177576 SDPARO= 172260 $wO9 = 001000 TST6 012470 
MAPH35= 170366 R3 = 172516 SDPAR1= 172262 Swi = = 000002 TST? 012604 
MAPH36= 170372 MMTOTM 014420 SDPAR2= 172264 Sw10 = 002000 TYPDAT= 002214 
MAPH37= 170376 MMTRAP 004744 SDPAR3= 172266 SW11 = 004000 TYPDS = 104410 
MAPH4 = 170222 = 000250 SDPAR4= 172270 Swi2 = 010000 TYPE = 104400 
MAPHS = 170226 MRQUES 007613 SDPARS= 172272 Swi3 = 020000 TYPOC = 104402 
MAPH6 = 170232 NEXMEM= 000040 SDPAR6= 172274 $W14 = 040000 TYPON = 104406 
MAPH7 = 170236 NEXT 005140 SDPAR7= 172276 $W15 = 100000 . TYPOS = 104404 
MAPLO = 170200 NOMORE 007260 SDPDRO= 172220 SWw2 == 000004 TYPVAD 002414 
MAPLUO= 170200 NXTTST 001346 SDPDR1= 172222 SW3 = = - 000010 UBADDR 002522 
MAPLO1= 170204 OLDPC 001326 SDPDR2= 172224 SW4 = = 000020 UBMAVA 021735 
MAPLO2= 170210 OLDPS 001330 SDPDR3= 172226 SW5 = 000040 UBMEND 021771 
MAPLO3= 170214 OLDPSW 001332 SDPDR4= 172230 Sw6 == 000100 UBMHI 001262 
MAPLO4= 170220 PADRSH 001226 SDPDR5= 172232 SW? = =_: 000200 UBMLOW 001260 
MAPLOS= 170224 PADRSL 001224 SDPDR6= 172234 SWw8 == 000400 UBRHI 001272 
MAPLO6= 170230 PATAND 001250 SDPDR7= 172236 SwW9 == 001000 UBRLOW 001270 
MAPLO7= 170234 PATEXT 005224 SIPARO= 172240 SYSTID= 177764 UDPARO= 177660 
MAPL1 = 170204 PATRNS 021712 SIPARI= 172242 TBIT = 000020 UDPAR1= 177662 
MAPL10= 170240 PATTOR 001252 SIPAR2= 172244 TBITO = 104416 UDPAR2= 177664 
MAPL11= 170244 PCONTR 001320 SIPAR3S= 172246 TBITOF 004306 UDPAR3= 177666 
MAPL12= 170250 PCPUER 001314 SIPAR4= 172250 TBITR = 104420 UDPAR4= 177670 
MAPL13= 170254 PIRQ = 177772 SIPARS= 172252 TBITRE 004334 UDPARS= 177672 
MAPL14= 170260 PIRQVE= 000240 SIPAR6= 172054 TBITVE= 000014 UDPAR6= 177674 
MAPL15= 170264 PMAINT 001322 SIPAR7= 172256 TCPMRA 005632 UDPAR7= 177676 
MAPL16= 170270 PMMRI 001334 SIPDRO= 172200 TESTNO 001310 UDPDRO= 177620 
MAPL17= 170274 PMMR1 001336 SIPDRI= 172202 TIMEOU 004410 UDPDR1= 177622 
MAPL2 = 170210 PMMR2 001340 SIPDR2= 172204 TIMOUT= 000020 UDPDR2= 177624 
MAPL20= 170300 PPARER 001316 SIPDR3= 172206 TKVEC = 000060 UDPDR3= 177626 

| 

| 


MAPL21= 170304 PRETST 017662 SIPDR4= 172210 
MAPL22= 170310 PRO = 000000 SIPDRS= 172212 
MAPL23= 170314 PR1 = = 000040 SIPDR6= 172214 
MAPL24= 170320 PR2 = 000100 SIPDR7= 172216 
|MAPL25= 170324 PR3 == 000140 SIZEHI= 177762 
/MAPL26= 170330 PRA == 600200 SIZEJ 012620 


M12 


TOFLAG 004412 


TOMSG 006262 
TPVEC = 000064 
TRAPVE= 00003 
TRIVEC= 000014 


C= 00 
TSTLOC 005046 


UDPDR4= 177630 
UDPDRS= 177632 
UDPDR6= 177634 
UDPDR7= 177636 
UIPARO= 177640 
UIPAR1= 177642 


SEQ 0155 
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Ww 
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000 
ERRORS DETECTED: 


VIRTUAL MEMORY USED: 


DYNAMIC 
ELAPSED 
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003714 
031010 
0 


S 
So 


MEMORY : 
TIME: 
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SETEND 


46872 —_ 
20346 WORDS 
08:38 


3 
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STESTN 
STIMES 
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001210 


001136 


2 
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SEQ 0156 


